datagrid empty

[bbartlin]

Can anyone tell me why my datagrid has no rows? The query is definitely bringing back data because I can MsgBox the rst!field1

SQL = "SELECT field1, field2 FROM table"

With rst
.CursorLocation = adUseClient
.Open SQL, cn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rst
End With

With DataGrid1
.Columns(0).Width = 300
.Columns(1).Width = 3000
End With

 

[bbartlin]

Never mind. I was closing my connection immediately after and that was losing my data.