vb access学生管理系统

VB连接ACCESS数据库代码确实不难，但是如果设计就不好说了，我给你各用ADO连接ACCESS的代码示例你学习下就知道怎么连接了

'引用Microsoft ActiveX Data Objects 2.X Library
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sql As String

If cn.State = adStateOpen Then cn.Close
If rs.State = adStateOpen Then rs.Close

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & "\数据库名"
If Dir(App.Path & "\数据库名") = "" Then '数据库不存在

sql="SQL语句"
rs.Open sql, cn, adOpenKeyset, adLockPessimistic
if rs.EOF then ‘查询结果为空
rs.close
set rs=nothing

Set cmd.ActiveConnection = cn
sql=SQL语句
cmd.CommandText = sql
cmd.CommandType = adCmdText
Dim intReturn As Integer
cmd.Execute intReturn
MsgBox "一共删除了" & CStr(intReturn) & "条记录"

cn.close
set cn=nothing

已经很简单了