Sub Button1_Click
Private Q As String
Private Cur As Cursor
Q = "select id,nm,cst_prc,sls_prc from m_gd where nm = 'COKE'"
Cur = SqlLt.ExecQuery(Q)
For i = 0 To Cur.RowCount - 1
Cur.Position = i
Msgbox("ID : " & Cur.GetInt2(0),"")
Msgbox("NAME : " & Cur.GetString2(1),"")
Msgbox("COST : " & Cur.GetInt("CST_PRC"),"")
Msgbox("SLS PRC : " & Cur.GetInt2(3),"")
Next
Cur.Close
Tbl1.LoadSQLiteDB(SqlLt, Q, True)
End Sub