Værdi fra tekstbox til database

Hvad går der galt her?

På forhånd tak


Sub Button1_Click(sender As Object, e As EventArgs)

  Dim conRazviConsult As OleDbConnection
  Dim strInsert As String
  Dim cmdInsert As OleDbCommand
  Dim Bnavn, Bpassword As String

  'Bnavn = obTxtBrugerNavn.Text
  'Bpassword = obTxtPassword.Text
  conRazviConsult = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Raz\Database\RazviConsult.mdb")

  strInsert = "Insert Into Brugere (BrugerNavn, [Password]) Values (obTxtBrugerNavn.Text, obTxtPassword.Text)"
  cmdInsert = New OleDbCommand(strInsert, conRazviConsult)
  conRazviConsult.Open()
  cmdInsert.ExecuteNonQuery()
  conRazviConsult.Close()

End Sub