Option Explicit
Dim Version
Public Stufe As Integer
Public oDatabase As DataEnvironment1
 
 
 
 
 
' ------------------------------------
 
Private Sub cmd_OK1_Click()
  oDatabase.FragenDB.ConnectionString = "Data Source=" & App.Path & _
    "\Fragen.mdb"
 
  oDatabase.FragenDB.Properties("Jet OLEDB:Database Password") = "hwl"
  oDatabase.FragenDB.Open
 
  If NeuerBenutzer.Value = True Then
  oDatabase.NewUser
 '  Stufe = oDatabase.StufeAuslesen
  End If
  If NeuerBenutzer.Value = False Then
  ' Stufe = oDatabase.StufeAuslesen
  End If
 
If cmd_OK1.Enabled Then
Unload Me
End If
frmMain.Show
End Sub
 
 
' -------------