' Open connection
strCnxn = "Provider='sqloledb';Data Source='(local)';" & _
"Initial Catalog='mydb';Integrated Security='SSPI';"
Set Cnxn = New ADODB.Connection
Cnxn.Open strCnxn
' Open employee table
Set rst = New ADODB.Recordset
strSQL = "select id from SC148"
rst.Open strSQL, Cnxn, adOpenKeyset, adLockOptimistic, adCmdText
If rst.BOF = True And rst.EOF = True Then
Else
rst.MoveFirst
MSFlexGrid1.Cols =  20 
MSFlexGrid1.Col =  0 
MSFlexGrid1.Row =  1 
While rst.EOF <> True
MSFlexGrid1.AddItem ""
MSFlexGrid1.Col =  0 
MSFlexGrid1.Row = MSFlexGrid1.Rows -  1 
MSFlexGrid1.TextMatrix(rst.AbsolutePosition,  2 ) = rst.Fields("code")
MSFlexGrid1.TextMatrix(rst.AbsolutePosition,  3 ) = rst.Fields("descr")
MSFlexGrid1.TextMatrix(rst.AbsolutePosition,  4 ) = rst.Fields("sp152")
rst.MoveNext
Wend
End If