Option Explicit
Dim rsStatus As Recordset                  'Recordset mit Stadtteilen
Private Sub Form_Load()
'On Error Resume Next
 
Set rsStatus = New Recordset                                    'Recordset 
' öffnen
rsStatus.ActiveConnection = connApp
rsStatus.CursorType = adOpenKeyset
rsStatus.LockType = adLockReadOnly
rsStatus.Open "quy_MemberState", , , , adCmdTable
rsStatus.MoveFirst
 
Do Until rsStatus.EOF = True                                   'Füllen des 
' Listenfeldes
    List1.AddItem rsStatus!MemberStateName, rsStatus!MemberStateId
    rsStatus.MoveNext
Loop
 
End Sub
 
Private Sub List1_Click()
 
frm_Mitglieder.Text1(16).Text = List1.Text
frm_Mitglieder.lbl_StatusId.Caption = List1.ListIndex
rsStatus.Close
Set rsStatus = Nothing
frm_Mitglieder.ValSave
Unload Me
End Sub

Public Function ValSave()
    Select Case ListSelect
        Case 16
        If MsgBox("Wollen Sie die Änderung speichern?", vbYesNo) = vbNo Then _
          Exit Function
            rsMembers!MemberStateName = Text1(16).Text
            rsMembers.Update
            strMemberFind = CInt(Text1(0).Text)
            Text1(ListSelect).Locked = True
            RecordsetMembersOpen
            BindLabels
            MitState = 0
    End Select
End Function