各位，求一段判断代码？

Question

我通过以下程序将DB1数据库中（ACCESS）的Data_Type表(该表有Data_Type,Data_Type_No两个字段)的每条记录的Data_Type字段内容填充到COMBO1中，，请问，如何通过程序首先判断用户在COMBO1中选择的Data_Type字段，然后通过程序获得Data_Type字段对应的Data_Type_No字段到TEXT1中？
Private Sub Add_DataType()
Dim myres As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim strSQL As String
    conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    conn.Open App.Path & "\DB1.mdb"
    strSQL = "SELECT distinct Data_Type from Data_Type"
    myres.Open strSQL, conn, adOpenStatic
    If myres.RecordCount > 0 Then myres.MoveFirst
    Do While Not myres.EOF
        Combo1.AddItem myres!Data_Type
        myres.MoveNext
    Loop
    conn.Close
    If Not myres Is Nothing Then
        Set myres = Nothing
    End If
End Sub

Answer 1

form_load中填入combo1的字段列表
combo1_click事件作相应判断
sql语句如下:
select Data_Type,Data_Type_No from 表
sqlect Data_Type_No from 表 where data_type= combo1.text