module1.bas

来自「vb开发」· BAS 代码 · 共 14 行

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