怎么检索数据库表里面的某个字段值

用循环函数拆分及合并字符串就可以实现，示例是使用Access做的，使用Dlookup函数取值，VB里面没有这个函数可以使用select... into....查询语句赋值。

Private Sub 循环对比_Click()
    Dim rnaxl, sjjbm, ajsxl, dzzwm As String
    Dim ran, sjj, ajs, zwm As String
    Dim i, j As Long
    rnaxl = Trim(Me.RNA序列)
    '    MsgBox rnaxl
    i = Len(rnaxl)
    For j = 1 To i Step 3
        rna = Left(rnaxl, 3)
        rnaxl = Mid(rnaxl, 4)
        'MsgBox rna
        sjj = DLookup("三碱基编码", "表", "[三碱基编码]='" & rna & "'") & "|"
        ajs = DLookup("氨基酸序列", "表", "[三碱基编码]='" & rna & "'") & "|"
        zwm = DLookup("对照中文名", "表", "[三碱基编码]='" & rna & "'") & "|"
        sjjbm = sjjbm & sjj
        ajsxl = ajsxl & ajs
        dzzwm = dzzwm & zwm
    Next
    '    MsgBox sjjbm
    '    MsgBox ajsxl
    '    MsgBox dzzwm
    Me.三碱基编码 = Left(sjjbm, Len(sjjbm) - 1)
    Me.氨基酸序列 = Left(ajsxl, Len(ajsxl) - 1)
    Me.对照中文名 = Left(dzzwm, Len(dzzwm) - 1)
End Sub