...видно только названия столбцов в гриде

Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open ("DSN=baze")
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open "select * from payment", cnn, adOpenDynamic, adLockOptimistic
Set Grid.DataSource = rs
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub

TDBGrid пользую первый раз, так что могу тупить. не судите строго)

неа, не помогает (

Worobjoff

спасибо, на этом этапе проблему решил

буду дальше биться

hangkilrs.ActiveConnection = cn

rs.ActiveConnection = cnn

тогда работает

кстати, да. но работает и так и так почему то...