Ajuda Com Datagrid

[rodrigo noma]

Estou tentando trabalhar com datagrid, mas estou tendo dificuldades.

Criei um datagrid e um botao, para iniciar a busca no bd

Private Sub Command1_Click()

Set cn = New ADODB.connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\cad_cli.mdb;"

cn.open connstring

Set rq = cn.execute("select * from cad_cli")

DataGrid1.Caption = Teste

DataGrid1.Columns.Add (0)

For i = 0 To rq.Fields.Count - 1

DataGrid1.Columns(i).Caption = rq.Fields(i).Name

Next

Set DataGrid1.DataSource = rq

DataGrid1.Refresh

End Sub

O que tem de errado para conseguir o desejado?

Obrigado

Rodrigo

[AlexMunhoz]

Estou tentando trabalhar com datagrid, mas estou tendo dificuldades.

Criei um datagrid e um botao, para iniciar a busca no bd

Private Sub Command1_Click()

Set cn = New ADODB.connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\cad_cli.mdb;"

cn.open connstring

Set rq = cn.execute("select * from cad_cli")

DataGrid1.Caption = Teste

DataGrid1.Columns.Add (0)

For i = 0 To rq.Fields.Count - 1

DataGrid1.Columns(i).Caption = rq.Fields(i).Name

Next

Set DataGrid1.DataSource = rq

DataGrid1.Refresh

End Sub

O que tem de errado para conseguir o desejado?

Obrigado

Rodrigo

tenta isso.

Set cn = New ADODB.connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\cad_cli.mdb;"

cn.open connstring

rq.cursorlocation = aduseclient

' não sei se é assim mesmo que escreve AdUseClient aqui não tem vb instalado.

Set rq = cn.execute("select * from cad_cli")

Set DataGrid1.DataSource = rq.clone

t+,,, qualquer coisa quando eu chegar em casa corrijo o post.