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=Gcgl;Initial Catalog=Gcgl"
End Function
Public Sub Enter(KeyCode As Integer)
 If KeyCode = vbKeyReturn Then
    SendKeys "{Tab}"
 End If
End Sub