能不能给一个vb.net对access进行添加、删除、修改操作的实例,该怎么处理

能不能给一个vb.net对access进行添加、删除、修改操作的实例
大家好，请教一个问题。如题！谢谢

------解决方案--------------------
建表
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
cn.Open
cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double)"
cn.Close
End Sub
'删表
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
cn.Open
cn.Execute "DROP TABLE [aaa]"
cn.Close
End Sub 

------解决方案--------------------
Dim odbc_str As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=print.mdb;Jet OLEDB:Database Password=printdata"
Dim con As New System.Data.OleDb.OleDbConnection(odbc_str)
dim ds as dataset = New Data.DataSet
con.Open()
EXT_CMD = New OleDbCommand("delete from print_bj where t_datetime Between format('" & DateTime.Today.AddYears(-2) & "','yyyy-MM-dd') and format('" & DateTime.Today.AddYears(-1) & "','yyyy-MM-dd')", con)
 EXT_CMD.CommandType = CommandType.Text
 EXT_CMD.ExecuteNonQuery()

SQL_CMD = "insert into print_card(t_kh" & _
") values(" & _
"'ddddd')"
EXT_CMD = New OleDbCommand(sql_cmd,con)
EXT_CMD.CommandType = CommandType.Text
EXT_CMD.ExecuteNonQuery()
SQL_CMD = "delete print_card where t_kh='ddddd')"
EXT_CMD = New OleDbCommand(sql_cmd,con)
EXT_CMD.CommandType = CommandType.Text
EXT_CMD.ExecuteNonQuery()
con.close