Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then '实现光标转移
     Text2.SetFocus
   End If


Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Command1.SetFocus
  End If
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Then
    Command3.SetFocus
 End If
End Sub

可能没说清楚 是从确定到等录的Setfocus没有动作，前两个都行。麻烦高手赐教。
                                                  谢谢！

都确定了还要登录何用？
或者为什么要确定呢？

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Then
    Command3.SetFocus
 End If
End Sub
Private Sub Command3_Click()
    Frmdl.Hide '切换窗体
    Frmmain.Show
End Sub
为了切换窗体

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Then
    Call Command3_Click'这样不就OK了么?
 End If
End Sub

好的 我试试

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then '实现光标转移
     Text2.SetFocus
   End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Command1.SetFocus
  End If
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Then
    Command3.SetFocus
   
 End If
  Call Command3_Click
End Sub
Private Sub Command3_Click()
    Frmdl.Hide '切换窗体
    Frmmain.Show
End Sub
还是不行

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then '实现光标转移
     Text2.SetFocus
   End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Command1.SetFocus
  End If
End Sub
Private Sub Command1_Click()
  Call Command3_Click
End Sub
Private Sub Command3_Click()
    Frmdl.Hide '切换窗体
    Frmmain.Show
End Sub
Command1上按回车试试

Public gdlyhstr As String '公共登录用户名变量
Private Sub Frmdl_Load()
  Command3.Enabled = False '登录按钮不可用
   Text1.Text = "" '输入框为空
   Text2.Text = ""
End Sub

Private Sub Command1_Click()
Dim gyhmstr As String '公共用户名
Dim gmastr As String '密码
         gyhmstr = "1"  '用户名变量
         gmastr = "1" '密码变量
         gdlyhstr = Text1.Text '公共登录用户名输入框
  If Text1.Text = gyhmstr And Text2.Text = gmastr Then
     Frmdl.Label1 = "欢迎" & Frmdl.gdlyhstr & "使用查询系统"
        Label1.ForeColor = vbBlue
      Frmdl.Caption = "欢迎登录"
    Command3.Enabled = True
  Else
  MsgBox "请输入正确的用户名和密码", vbQuestion, "信息提示"
      Text1.SetFocus
    Text1.Text = ""
    Text2.Text = ""
  End If
 End Sub
 
Private Sub Command2_Click()
If MsgBox("您确定退出查询系统吗？", vbYesNo + vbInformation, "退出系统") = vbYes Then
    Unload Frmdl
Exit Sub

ElseIf MsgBox("请重新输入用户名和密码", vbInformation, "重新登录") Then
   Text1.SetFocus
   Text1.Text = ""
   Text2.Text = ""
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then '实现光标转移
     Text2.SetFocus
   End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Command1.SetFocus
  End If
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Then
    Command3.SetFocus
 End If
End Sub
Private Sub Command3_Click()
    Frmdl.Hide '切换窗体
    Frmmain.Show
End Sub
这是所有的原来代码 请再给我看看 是否有问题

Public gdlyhstr As String '公共登录用户名变量
Private Sub Frmdl_Load()
   Text1.Text = "" '输入框为空
   Text2.Text = ""
End Sub

Private Sub Command1_Click()
Dim gyhmstr As String '公共用户名
Dim gmastr As String '密码
         gyhmstr = "1"  '用户名变量
         gmastr = "1" '密码变量
         gdlyhstr = Text1.Text '公共登录用户名输入框
  If Text1.Text = gyhmstr And Text2.Text = gmastr Then
     Frmdl.Label1 = "欢迎" & Frmdl.gdlyhstr & "使用查询系统"
        Label1.ForeColor = vbBlue
      Frmdl.Caption = "欢迎登录"
    Command3.Enabled = True
  Else
  MsgBox "请输入正确的用户名和密码", vbQuestion, "信息提示"
      Text1.SetFocus
    Text1.Text = ""
    Text2.Text = ""
  End If
  Command3.Enabled = True
  Command3.SetFocus
End Sub

Private Sub Command2_Click()
If MsgBox("您确定退出查询系统吗？", vbYesNo + vbInformation, "退出系统") = vbYes Then
    Unload Frmdl
Exit Sub

ElseIf MsgBox("请重新输入用户名和密码", vbInformation, "重新登录") Then
   Text1.SetFocus
   Text1.Text = ""
   Text2.Text = ""
End If
End Sub

Private Sub Form_Activate()
Command3.Enabled = False
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then '实现光标转移
     Text2.SetFocus
   End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Command1.SetFocus
  End If
End Sub
Private Sub Command3_Click()
    Frmdl.Hide '切换窗体
    Frmmain.Show
End Sub