Private Sub cmdOK_Click()
    If txtFirma.Text = "" And txtInhaber.Text = "" And txtStrasse.Text = "" And _
      txtPLZ.Text = "" And txtOrt.Text = "" Then
        MsgBox "Bitte geben Sie die Firmendaten ein. Ansonsten wird das" & _
        "Programm beendet!", vbCritical, "Fehler"
    Else
 
        Set Rs = New ADODB.Recordset
        Rs.Open "SELECT * From Firma", Cn, adOpenDynamic, adLockOptimistic
 
        If Rs.RecordCount = 0 Then
            Rs.AddNew
            Rs.Fields("ID").Value = "0"
            Rs.Fields("Firma").Value = txtFirma.Text
            Rs.Fields("Inhaber").Value = txtInhaber.Text
            Rs.Fields("Strasse").Value = txtStrasse.Text
            Rs.Fields("PLZ").Value = txtPLZ.Text
            Rs.Fields("Ort").Value = txtOrt.Text
            Rs.Update
            Rs.Close
        Else
            Rs.MoveFirst
            Rs.Fields("ID").Value = "0"
            Rs.Fields("Firma").Value = txtFirma.Text
            Rs.Fields("Inhaber").Value = txtInhaber.Text
            Rs.Fields("Strasse").Value = txtStrasse.Text
            Rs.Fields("PLZ").Value = txtPLZ.Text
            Rs.Fields("Ort").Value = txtOrt.Text
            Rs.Close
        End If
    End If
 
    Cn.Close
    Set Rs = Nothing
    Set Cn = Nothing
 
    frmFirma.Hide
    frmMain.Enabled = True
 
End Sub