module1.bas

根据餐饮行业的特点和该企业的实际情况

Attribute VB_Name = "Module1"
Option Explicit
Public Function cnn() As String    '定义函数
  '返回一个数据库连接
  cnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
End Function
Public Sub Enter(KeyCode As Integer)
  If KeyCode = vbKeyReturn Then
     SendKeys "{Tab}"
  End If
End Sub