请教一个关于组合框的问题

tooot

大家好，请教一个问题哈，如何在点击“查询”按钮后，程序会返回给我组合框所选择的一个值对应的表中的几个字段值？比如如果我在组合框中选择“1”，点击“查询”，（组合框里面的选择项是对应的“表1”里的一个字段）我希望能返回给我“表1”中的编号“1”所对应的“字段1” — “字段5”的5个值.谢谢了哈

styhs

命令按钮的代码：

Private Sub Command3_Click()
Dim FNum As Long
    With Me
        If IsNull(.Combo0) Then
            MsgBox "没有选择数据": Exit Sub
        Else
            FNum = .Combo0
        End If
    End With
Dim rst As New ADODB.Recordset, FStr As String
    With rst
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Source = "SELECT 字段1, 字段2, 字段3, 字段4, 字段5 FROM 表1 WHERE 编号 = " & FNum
        .Open
    End With
    With rst
        For FNum = 0 To .Fields.Count - 1
            If FNum = 0 Then
                FStr = .Fields(FNum).Name & ":" & .Fields(FNum)
            Else
                FStr = FStr & ", " & .Fields(FNum).Name & ":" & .Fields(FNum)
            End If
        Next
    End With
    MsgBox FStr: Set rst = Nothing
End Sub

tooot

感谢感谢哈！！！