Following Griffs answer you cant query the database with
Dim cm As New SqlClient.SqlConnection(strcommand, con)
you would use the sqlcommand object like so
Public Sub CreateCommand(ByVal queryString As String, _
ByVal connectionString As String)
Using connection As New SqlConnection(connectionString)
Dim command As New SqlCommand(queryString, connection)
command.Connection.Open()
command.ExecuteNonQuery()
End Using
End Sub
this example was taken from
SQL Connection Class[
^]
Also your not returning a resultset from the database as you are executing a non query .i.e no results are to be return except the number of rows that are return. Have a look at
SQL Data Reader Class[
^]