Senhores boa tarde.

 

Peguei uma dica no site do Macorati, só que não estou conseguindo fazer o código funcionar, será que alguém me poderia me dar um help.

 

A DICA É ESTA NO SEGUINTE ENDEREÇO: http://www.macoratti.net/dica63.htm

 

Agradeço a todos.

 

SRick

Bom, o que está acontecendo realmente?

O que está dando errado? Que msg de erro aparece?

Se vc informar, talvez fique mais fácil ajudá-lo.

Bom dia amigo, a mensagem que aparece quando eu compilo a plicação é a seguinte:

 

Compile Error, variable not defined.

 

 

abaixo está o código:

 

Private Sub Command1_Click()
' exibe o valor da célula atual
  MsgBox "Celula(" & grdTeste.Row & ", " & grdTeste.Col & ") " & _
     vbCrLf & grdTeste.Text, vbInformation, "Exibindo o conteúdo da célula selecionada."
  grdTeste.SetFocus

End Sub

Private Sub Form_Load()
Dim database_file As String
' Realiza a conexão do ADODC ao banco de dados
adodcAutores.ConnectionString = _
   "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source=c:     esteiblio.mdb;"

adodcAutores.RecordSource = "SELECT * FROM Authors _
ORDER BY Au_ID"
' vincula o ADODC ao Datagrid
Set grdTeste.DataSource = adodcAutores

End Sub

não é variável... é o nome do controle ADOCONTROL...

sRick , vc tem que colocar o componente adodc no formulario, senao , nao vai funcionar ok