Option Explicit
Dim DB As Database
Dim Rst As Recordset
Dim SQL As String
Dim varNummer As String
Dim Msg01 As String
Private Sub Command3_Click()
Set DB = OpenDatabase(App.Path & "\Artikel.mdb")
'Set Rst = DB.OpenRecordset(SQL)
Set Rst = DB.OpenRecordset("data")
 
  varNummer = Rst!codeid
  fname.Text = Rst!fname
  vname.Text = Rst!vname
  email.Text = Rst!email
  SQL = "UPDATE data SET " & _
            "fame = '" & fname.Text & "', " & _
            "Vname = '" & vname.Text & "', " & _
            "email = '" & email.Text & "' " & _
            "WHERE codeid = " & varNummer
  DB.Execute (SQL)
End Sub