VB中的数据怎样插入access

Dim conn As ADODB.Connection 'conn为连接
Dim rs As New ADODB.Recordset 'rs为记录集
Dim sql As String
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\dat.mdb" & ";Jet OLEDB:Database Password=123" '打开数据源
sql = "select * from 学生信息 "
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
'rs.MoveLast
rs.AddNew '往表中添加新记录
rs.Fields(0).Value = "李振"
rs.Fields(1).Value = 22
rs.Fields(2).Value = "男"
rs.Fields(3).Value = #6/8/1984#
rs.Update
rs.Close
conn.Close

楼上的写的是将数据储存到access数据库里面的代码。但楼主如果不懂数据库，就要先去学学T-SQL语句。再找找ACCESS数据库相关的资料看看那。