【求助】哪位好心帮个忙修改下代码，不知道出了什么问题！

Grant

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
   
        Dim rst As New ADODB.Recordset
        Dim strSQL As String
        
        strSQL = "select 电话 from B where 客户名称 = '" & Text0.Text & "'"
        rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        
        Text1.SetFocus
        Text1.Text = rst("电话")
        
        If rst("电话").Value = "" Then
            MsgBox "没有该客户对应的电话!"
        End If
        
        rst.Close
        Set rst = Nothing
   
    End If
End Sub