salarymodule.bas

大家一起上传,一起下,对大家都有好处,

Attribute VB_Name = "Module1"
Public ResClose As Integer
Public ResOpen As Integer
Public RES As New Recordset
Public CHANGE As New Recordset
Public Comsalary As New ADODB.Connection
Sub main()

Dim CHANGE As New Recordset
Dim RES As New Recordset
Form5.Show


End Sub