Este es el code:
Código
Imports System Imports System.Data Imports System.Data.SqlClient Public Class ConexBD Public Sub conectar(ByVal email As String, ByVal code As String) 'Metodo que establece la conexion con la base de datos Try Dim cmd As New SqlCommand Dim con As New SqlConnection("Server=mysql.000webhost.com ; User Id=a2906687; Password=; Database=a2907") cmd.Connection = con cmd.CommandText = "INSERT INTO test (email,code) VALUES ('test','testcode')" cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message.ToString(), MsgBoxStyle.Critical) End Try End Sub End Class
A ver si me podeis hechar una mano!! Gracias!!!