Cursor1 = sql1.ExecQuery("SELECT * FROM customer where code ='" & lblRowid.Text &"'")
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
txtDate.Text=Cursor1.GetString("date")
txtName.Text=Cursor1.GetString("name")
SpinCategory.Add(Cursor1.GetString("category"))
Next