erro no uso do mecanismo jet

[valdirsilva 0]

Private Sub Form_Load()

Me.Height = 8990

Me.Width = 10000

CentralizarChild mdiCPR, Me, mdiCPR.tbrPrincipal.Height + mdiCPR.sbrPrincipal.Height

'abri arquivo de Transportadoras

gSQL = "SELECT * FROM tbTransp"

Set gRS = gDB.OpenRecordset(gSQL)

PreencherLista cboTrans, "tbTransp", "idTransp", "RazaoSocial"

Screen.MousePointer = vbDefault

On Error GoTo errLoad

Screen.MousePointer = vbHourglass

gMensagem = "verificação das permissões"

tbrCliente.Buttons(1).Visible = VerPermissao(Me.Name, kALTERACAO, False)

tbrCliente.Buttons(4).Visible = VerPermissao(Me.Name, kEXCLUSAO, False)

tbrCliente.Buttons(9).Visible = VerPermissao("frmHistoricoCliente", kCONSULTA, False)

menGravar.Visible = VerPermissao(Me.Name, kALTERACAO, False)

menExcluir.Visible = VerPermissao(Me.Name, kEXCLUSAO, False)

menHistorico.Visible = VerPermissao("frmHistoricoCliente", kCONSULTA, False)

gSQL = "SELECT * FROM tbCliente"

Set gRS = gDB.OpenRecordset(gSQL)

PreencherLista cboCliente, "tbCliente", "IdCliente", "RazaoSocial"

Screen.MousePointer = vbDefault

Exit Sub

entao ele da erro nessa linha diz que o idtransp nao e reconhecido como campo ou expressão.

ele mostra a tabela mas da erro depois da seleção.

agradeço desde ja

[KhaosDoctor 242]

Isso não parece uma expressão de programação cara

[valdirsilva 0]

Obrigado se não pode ajudar ,não preciso de criticas.

[KhaosDoctor 242]

Não estou criticando nada, estou falando que o código não parece uma expressão de programação, por isso que está dando este erro.

 

Porque ele "Não e reconhecido como campo ou expressão."