怎么实现一个文本框中输入内容，其他几个文本框快速的自动显示对应的内容

已解决，参考了平台的加载代码

Private Sub 资产编号_AfterUpdate()
    Dim cnn: Set cnn = GetADOConnection()
    Dim strSQL: strSQL = "SELECT * FROM [IT资产统计] WHERE [资产编号]=" & SQLText(Me![资产编号])
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
     MsgBox "输入的资产编号不存在，请重新输入", vbCritical, "警告"
     Else
    LoadRecord Me, "SELECT * FROM [IT资产统计] WHERE [资产编号]='" & Me.资产编号 & "'"
    End If
End Sub