Code:
Dim iCount As Integer
Dim iLoop As Integer
Dim lvitem = LVSched.Items.Item(iLoop)
If query3.State = ConnectionState.Closed Then
query3.ConnectionString = "SERVER = localhost; USER =root; PASSWORD =; DATABASE =crm_viper;"
query3.Open()