Private Sub sysoffen(ByVal berechtigung As String)
        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
          "Source=E:\Datenbank\TEST.MDB;Jet OLEDB:Database Password=*******"
        cmd.Connection = con
        con.Open()
        If berechtigung = "Autor" Then
            cmd.CommandText = "UPDATE Users SET Password = 'f' WHERE LoginName" & _
              "= 'Admin'"
            cmd.ExecuteNonQuery()
        End If
        con.Close()
  End Sub

cmd.ExecuteNonQuery()