Private Sub cmdStart_Click()
On Error GoTo ERR_cmdStart_Click
    If LCase(Right(Prod_Path, 4)) = ".mdb" Then
        Screen.MousePointer = vbHourglass
        ' Set DBProd = OpenDatabase(Prod_Path)'Vielleicht nicht nötig
        ' DBProd.Close'Vielleicht nicht nötig
        LdbName = Left(Prod_Path, Len(Prod_Path) - 4) + ".ldb"
        If Dateiexist(LdbName) = False Then
            'Backend wird nicht benützt - Update durchführen
            Update_Backend
            Else
                CheckUserCount LdbName
                MsgBox "Backend wird gerade verwendet " & vbCr & "oder muß" & _
                  "zuerst repariert werden!", , "Update nicht möglich!"
                Screen.MousePointer = vbDefault
                Unload frmAccStrukturaenderungen
        End If
        Else
            MsgBox "Die ausgewählte Datei ist keine Access - Datei!" & vbCr & _
              "Wählen Sie die richtige Backend - Datei aus!", , "Information"
            Screen.MousePointer = vbDefault
            Exit Sub
    End If
 
ERR_cmdStart_Click:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description & "frmAccStrukturaenderungen -" & _
      "Private Sub cmdStart_Click"
    Resume Exit_cmdStart_Click
End If
 
Exit_cmdStart_Click:
Screen.MousePointer = vbDefault
Exit Sub
End Sub