Private Sub Button1_Click
Dim cid As String = "TEST001"
Dim Qr As String
Dim cnm As String = "New Customer"
Dim cmod As String = "Modified Name"
'comment/uncomment blocks To run desired tests
' Qr = "delete from [test] where CustomerID like " & "'" & cid & "%'"
' Wait For (CallSub2(Me, "ExecNonQuery",Qr)) Complete (OK As Boolean)
' Log(OK)
Qr = "insert into [test] ([CustomerID], [CustomerName]) VALUES (" & "'" & cid & "'" & "," & "'" & cnm & "'" & ")"
Wait For (CallSub2(Me, "ExecNonQuery",Qr)) Complete (OK As Boolean)
Log(OK)
' Qr = "update [test] set [CustomerName] = " & "'" & cmod & "'" & " where [CustomerID] = " & "'" & cid & "'"
' Wait For (CallSub2(Me, "ExecNonQuery",Qr)) Complete (OK As Boolean)
' Log(OK)
'
' Qr = "SELECT * from test where CustomerID = " & "'" & cid & "'"
' Wait For (CallSub2(Me, "ExecQuery",Qr)) Complete (OK As Boolean)
' Log(OK)
End Sub