Private Sub dgridkunden_Click()
            formhaupt.X = 3
            formhaupt.Frame1.Visible = True
 
            If Rs.EOF = True Or Rs.BOF = True Then
            Else
 
            formhaupt.txtkundennr.Text = Rs.Fields(0)
                For i = 0 To 5
                On Error Resume Next
                formhaupt.txtangaben(i).Text = Rs.Fields(i + 1)
                Next i
            End If
 
            formhaupt.X = 2
            Me.Hide
End Sub