註冊表格vba sql

Question

也許有人可以用這個代碼來幫助我使用訪問註冊表單。

Private Sub Befehl17_Click() 
Dim sql As String 
Dim rs As DAO.Recordset 
sql = "Select Username from dbo_UserTest1 where Username = '" & Me.Username & "' " 
On Error GoTo weiter 
Set rs = CurrentDb.OpenRecordset(sql) 
If rs!Username= Null Then 
weiter: 
DoCmd.RunSQL "Insert Into dbo_UserTest1 (Username, Passwort) values ('" & Me.Username & "' , '" & Me.Passwort & "')" 
Else 
message = MsgBox("Name schon vorhanden", vbOKOnly) 
End If 
End Sub 

它看起來很好，但它沒有奏效。 我做錯了什麼？

Answer 1

好的，我明白了。 不是我的vba + sql代碼錯了我的數據庫表錯了。

Thx尋求幫助。