Private Sub cmdNew_Click(Index As Integer)
 
Select Case Index
 
Case 0   ' Name und Datei auswählen
 
Dim sText As String
sText = InputBox("Name?")
lblName(0).Caption = sText
With CommonDialog1
    .DefaultExt = ""
    .Filter = "alle Dateien(*.*)|*.*"
    .ShowOpen
     lblName(1).Caption = Chr(39) & .FileName & Chr(39)
End With
cmdNew(1).Enabled = True
 
Case 1      ' Name und Datei in Datenbank übernehmen
 
Dim i As Integer
Set Dokument = envDokumente.rscmdDokument
 
Dokument.Open
Dokument.AddNew
    For i = 0 To 1
        Dokument(i) = lblName(i).Caption
    Next i
Dokument.Update
Dokument.Close
lblName(0).Caption = ""
lblName(1).Caption = ""
 
End Select
End Sub