表框
      Dim adoRs As New ADODB.Recordset
       Dim DBStr As String
     DBStr = "select RoomID from RoomInfo "
      adoRs.Open DBStr, Conn, adOpenStatic, adLockReadOnly
    
      If adoRs.RecordCount > 0 Then
        adoRs.MoveFirst
    
        Do While Not adoRs.EOF
          CombRoomID.AddItem adoRs.Fields(0).Value
          adoRs.MoveNext
        Loop
    
      End If
    
      adoRs.Close
      Set adoRs = Nothing
        
      '从数据库中读取数据写入会员编号下拉列表框
      Dim adoMemIDRs As New ADODB.Recordset
      DBStr = "select MemberID from MemberInfo"
      adoMemIDRs.Open DBStr, Conn, adOpenStatic, adLockReadOnly
    
      If adoMemIDRs.RecordCount > 0 Then
        adoMemIDRs.MoveFirst
    
        Do While Not adoMemIDRs.EOF
          CombMemberID.AddItem adoMemIDRs.Fields(0).Value
          adoMemIDRs.MoveNext
        Loop
    
      End If
    
      adoMemIDRs.Close
      Set adoMemIDRs = Nothing
        
    End Sub