Database VB6.0：如何通过组合框从数据库创建多个筛选器，并在datagrid中显示筛选器结果？

目前我正在做一个订单系统，我需要创建2个过滤器来过滤数据库中的数据并显示在datagrid中。第一个组合框用于订单id，第二个组合框用于型号id。下面是我需要的组合框函数的说明。最后，我用我当前的代码连接，完全无法工作……T\u T。我正在用adodc进行数据连接

订单id组合框： 显示数据库中的所有数据，并在datagrid中显示所选订单id中的数据

Private Sub Form_Load()

Adodc1.Refresh
Adodc1.Recordset.MoveFirst`
With Adodc1.Recordset`

Do Until .EOF
    cboOrderID.AddItem ![Order_ID]
    .MoveNext
    cboModelID.AddItem ![Model_ID]
    .MoveNext
Loop
End With

End Sub

Private Sub cboOrderID_Click()

Dim index As Integer
index = cboOrderID.ListIndex
Adodc1.RecordSource = "select * from Purchaser where Order_ID='" & cboOrderID & "'"

With Adodc1.Recordset

    Do Until .EOF
         cboModelID.AddItem ![Model_ID]
         .MoveNext
     Loop
 End With

End If
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

Private Sub cboModelID_Change()

Adodc1.RecordSource = "select * from Purchaser where Order_ID AND Model_ID='" & cboModelID & "'"
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

模型id组合框： 仅在“从订单id”组合框中选择的订单id下显示模型id，然后在datagrid中显示最终筛选数据

Private Sub Form_Load()

Adodc1.Refresh
Adodc1.Recordset.MoveFirst`
With Adodc1.Recordset`

Do Until .EOF
    cboOrderID.AddItem ![Order_ID]
    .MoveNext
    cboModelID.AddItem ![Model_ID]
    .MoveNext
Loop
End With

End Sub

Private Sub cboOrderID_Click()

Dim index As Integer
index = cboOrderID.ListIndex
Adodc1.RecordSource = "select * from Purchaser where Order_ID='" & cboOrderID & "'"

With Adodc1.Recordset

    Do Until .EOF
         cboModelID.AddItem ![Model_ID]
         .MoveNext
     Loop
 End With

End If
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

Private Sub cboModelID_Change()

Adodc1.RecordSource = "select * from Purchaser where Order_ID AND Model_ID='" & cboModelID & "'"
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

例：订单ID abc123由5个型号ID型号1、2、3、4和5组成。首先从订单id组合框中选择abc123数据库中的所有订单id将显示在组合框中，datagrid显示所有5个型号id信息。接下来，在模型id组合框中，仅显示模型1、2、3、4和5，选择模型5，datagrid将在datagrid中显示abc123和模型5的完整数据

Private Sub Form_Load()

Adodc1.Refresh
Adodc1.Recordset.MoveFirst`
With Adodc1.Recordset`

Do Until .EOF
    cboOrderID.AddItem ![Order_ID]
    .MoveNext
    cboModelID.AddItem ![Model_ID]
    .MoveNext
Loop
End With

End Sub

Private Sub cboOrderID_Click()

Dim index As Integer
index = cboOrderID.ListIndex
Adodc1.RecordSource = "select * from Purchaser where Order_ID='" & cboOrderID & "'"

With Adodc1.Recordset

    Do Until .EOF
         cboModelID.AddItem ![Model_ID]
         .MoveNext
     Loop
 End With

End If
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

Private Sub cboModelID_Change()

Adodc1.RecordSource = "select * from Purchaser where Order_ID AND Model_ID='" & cboModelID & "'"
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

---

请用适当的缩进重做代码块，以确保可读性。完成编辑，请检查并帮助我解决问题