module1.bas

这是一个VB+ACCESS开发的学生信息管理系统,我是用了一个多月才弄出来的嘎,界面美观,功能使用,你感觉好的话,那你要支持我的嘎!

Attribute VB_Name = "Module1"
Option Explicit
Public gstruser As String
Public gblnPurview As Boolean
Public pubCnn As New ADODB.Connection

Public Sub CreateConnection()
   pubCnn.CursorLocation = adUseClient
   pubCnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\student_data\student_massage.mdb"
End Sub
 Public Sub FocusBack(txtX As TextBox)
 txtX.SelStart = 0
 txtX.SelLength = Len(txtX.Text)
 txtX.SetFocus
 End Sub