Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public op As String
Public Function cnn() As ADODB.Connection
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "D:\VB数据\clgl.mdb" & ";Persist Security Info=False"
End Function
Public Sub main()
    Set adoCon = New ADODB.Connection
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "D:\VB数据\clgl.mdb" & ";Persist Security Info=False"
    frmLogin.Show
    frmLogin.Text1.SetFocus
End Sub
Function valiText(keyIn As Integer, validateString As String, Editable As Boolean) As Integer
Dim valiDatelist As String
Dim keyOut As Integer
  If Editable = False Then
     valiDatelist = UCase(validateString) & Chr(8)
  Else
     valiDatelist = UCase(validateString)
  End If
  If InStr(1, valiDatelist, UCase(Chr(keyIn)), 1) > 0 Then
     keyOut = keyIn
  Else
     keyOut = 0
  Beep
  End If
  valiText = keyOut
End Function
Public Sub main1()
    Set adoCon = New ADODB.Connection
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "D:\VB数据\clgl.mdb" & ";Persist Security Info=False"
End Sub