打开两个连接。建两个记录集。RSA->A数据库中的某一个表 RSB->B数据库中的某一个表。
   在TEXTBOX1_Validate事件中进行判断。
   在rsb中判断 “字段名=textbox1.text”(具体根据自己的情况写代码,我不知你要怎么判断才算符合条件。)
   if 符合条件 then
      textbox2.text=rsb!("字段2")
      textbox3.text=rsb!("字段3")
   endif
我只是根据你所说的大体写了一下,我也是菜鸟一名,以后大家相互学习
:)

解决方案 »

  1.   

    后来我是这样实现的:
    Private Sub txtJiekuanNum_KeyPress(KeyAscii As Integer)
        If KeyAscii = 13 Then
            SendKeys "{tab}"
            Dim mySQL As String
            mySQL = "select 借款摘要,借款金额,年,月,日 from Jiekuan where 编号='" + txtJiekuanNum + "'"
            On Error GoTo myError
            Set res = mcon.OpenResultset(mySQL)
            txtJiekuanZhaiyao = res(0)
            txtJiekuanJine = res(1)
            txtJiekuanDate = res(2) + "年" + res(3) + "月" + res(4) + "日"
    myExit:
            Exit Sub
    myError:
            MsgBox "The Number you just input has not exist!"
            Resume myExit
        End If
            
    End Sub