sql conexión

Try
Dim query As String =""
Dim con As New SqlConnection(conex)

con.Open
Using cmd As New SqlCommand(query, con)
                    cmd.Parameters.Add("@id", SqlDbType.Char).Value = ""
                    cmd.ExecuteNonQuery()
End Using
con.Close

Catch ex As Exception
End Try