VS2008とADO.NETを使用してアクセスDBMSに新しいレコードを追加しましたか？

Question

これは私のコードです：

Imports System.Data 
Public Class frmNieuweGebruiker 

Private Sub frmNieuweGebruiker_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    'verbinding maken met databank 
    Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=I:\Geïntegreerde proef\ApplicatieOntwikkeling\GIP.mdb" 
    Dim strSQL As String = "SELECT * FROM GEBRUIKER" 
    Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strConnection) 
    'databank gebruiker info ophalen. 
    dataAdapter.Fill(frmAanmeldingsscherm.dtGEBRUIKER) 
    dataAdapter.Dispose() 
End Sub 

Private Sub btnGebruikersnaamBevestigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGebruikersnaamBevestigen.Click 
    Dim strGebruikersnaam As String 
    Dim strWachtwoord As String 
    Dim drNieuweGebruiker As DataRow = frmAanmeldingsscherm.dtGEBRUIKER.NewRow() 

    strGebruikersnaam = txtGebruikersnaam.Text 

    If txtWachtwoord.Text <> txtWachtwoordBevestigen.Text Or txtWachtwoord.Text = "" Or txtWachtwoordBevestigen.Text = "" Then 
     MsgBox("U hebt een fout ingegeven." + vbNewLine + "Probeer nogmaals.") 
     txtWachtwoord.Text = "" 
     txtWachtwoordBevestigen.Text = "" 
    Else 
     strWachtwoord = txtWachtwoord.Text 

     drNieuweGebruiker("Gebruikersnaam") = strGebruikersnaam 
     drNieuweGebruiker("Wachtwoord") = strWachtwoord 

     frmAanmeldingsscherm.dtGEBRUIKER.Rows.Add(drNieuweGebruiker) 

     frmMenu.Show() 
     frmAanmeldingsscherm.txtGebruikersnaam.Text = strGebruikersnaam 
     Me.Close() 
    End If 

End Sub 

エンドクラス

私はこれを行うために彼に言うとき、彼は障害報告を与える：

drNieuweGebruiker("Gebruikersnaam") = strGebruikersnaam 
drNieuweGebruiker("Wachtwoord") = strWachtwoord 
frmAanmeldingsscherm.dtGEBRUIKER.Rows.Add(drNieuweGebruiker) 

をし、私はちょうど私にユーザーを追加する必要がありますデータベース...

Answer 1

最初に確認するGebruikersnaamおよびWachtwoordは、DataColumnsとしてdtGEBRUIKERテーブルに存在します。

あなたはこれらのラインにエラーが出ると言う：

drNieuweGebruiker("Gebruikersnaam") = strGebruikersnaam 
drNieuweGebruiker("Wachtwoord") = strWachtwoord 
frmAanmeldingsscherm.dtGEBRUIKER.Rows.Add(drNieuweGebruiker) 

ラインを？そして何のエラー？