Ho provato a modificare il codice:
dim Conn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=connessione al database")
sub Submit(obj as object,e as eventargs)
dim params(11) as string
dim objCmd as OledbCommand
dim strSQL as string
strSQL = "Insert into TblUsers(Nome, Cognome, Username, Password, ConfermaPSW, Email, Indirizzo, Città, Stato, CAP, Telefono) VALUES ('@Nome', '@Cognome', '@Username', '@Password', '@ConfermaPsw', '@Email', '@Indirizzo', '@Città', '@Stato', '@Cap', '@Telefono')"
objCmd = new OleDbCommand(strSQL,Conn)
objCmd.Parameters.Add("@Nome",tbName.Text)
objCmd.Parameters.Add("@Cognome",tbSurname.Text)
objCmd.Parameters.Add("@Username",tbUser.Text)
objCmd.Parameters.Add("@Password",tbPsw.Text)
objCmd.Parameters.Add("@ConfermaPsw",tbPsw2.Text)
objCmd.Parameters.Add("@Email",tbemail.Text)
objCmd.Parameters.Add("@Indirizzo",tbAddress.Text)
objCmd.Parameters.Add("@Città",tbCity.Text)
objCmd.Parameters.Add("@Stato",tbState.Text)
objCmd.Parameters.Add("@Cap",tbCap.Text)
objCmd.Parameters.Add("@Telefono",tbPhone.Text)
Conn.Open()
objCmd.ExecuteNonQuery()
Conn.Close()
end sub
Mi dice che c'è un errore nel comando Sql Insert Into.