Dim Rs1 As ADODB.Recordset
Dim Rs2 As ADODB.Recordset
Dim Rs3 As ADODB.Recordset
Dim RoomNum As String
Dim StrTemp As String
Dim iTemp As Integer
Dim jTemp As Integer
Private Sub Form_Load()
On Error GoTo Err_Form_Load
'????????????
Set Rs1 = New ADODB.Recordset
StrTemp = "Select * From ??????"
Rs1.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'????????????
Set Rs2 = New ADODB.Recordset
StrTemp = "Select * From ????"
Rs2.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'??????????????
Set Rs3 = New ADODB.Recordset
StrTemp = "Select * From ??????"
Rs3.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs3.MoveFirst
For iTemp = 0 To Rs3.RecordCount - 1
Rs1.MoveFirst
Rs2.MoveFirst
For jTemp = 0 To Rs1.RecordCount - 1
If (Rs3("??") = Rs1("??????")) Then
RoomNum = Rs3("??????")
Rs2(RoomNum) = Rs1("?????")
jTemp = Rs1.RecordCount + 1
Else
Rs1.MoveNext
End If
Next jTemp
Rs3.MoveNext
Next iTemp