Dim TemPR As New ADODB.Recordset
Dim TempSql As String

Dim TCOL As Long
Dim TROW As Long
Dim tempconnect As New ADODB.Connection
tempconnect.Open "Provider=MSDASQL.1;DRIVER={Adaptive Server Anywhere 8.0};SRVR=local;DB=db_package;UID=DBA;PWD=JDSYSYSTEM;PERSIST SECURITY INFO=False"
TempSql = "select * from bag_index_tab"
Set TemPR = tempconnect.Execute(TempSql, adAsyncExecute)
If Not (TemPR.EOF And TemPR.BOF) Then
DataGrid1.DataSource = TemPR
DataGrid1.DataBindings
'    Do Until TemPR.EOF
'        TROW = TROW + 1
'        For TCOL = 0 To TemPR.Fields.Count - 1
'            F1Book1.TextRC(TROW, TCOL + 1) = TemPR(TCOL) & ""
'
'        Next
'
'        TemPR.MoveNext
'    Loop

End If