请给一个vb.net 2005 操作 access的例子,谢谢
包括:向表内添加一条记录,更新记录,删除记录的代码,万分感谢

[解决办法]
http://blog.csdn.net/chsword/archive/2006/12/05/1431056.aspx
[解决办法]
这段代码有一部分未经过调试,不过都是最基本的操作了.

Public Class Form1

Dim conn As Data.OleDb.OleDbConnection
Dim da As Data.OleDb.OleDbDataAdapter
Dim ds As Data.DataSet

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conn = New OleDb.OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data.mdb ")
conn.Open()
da = New OleDb.OleDbDataAdapter( "SELECT * FROM 表1 ", conn)
ds = New Data.DataSet
da.Fill(ds)
conn.Close()
DataGridView1.DataSource = ds.Tables(0) ' 显示数据
End Sub

' 增
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SQLInsert As OleDb.OleDbCommand = New OleDb.OleDbCommand( "INSERT INTO 表1 (字段1,字段2) VALUES ( '值1 ', '值2 ') ", conn)
conn.Open()
SQLInsert.ExecuteNonQuery()
conn.Close()
End Sub

' 删
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SQLDelete As OleDb.OleDbCommand = New OleDb.OleDbCommand( "DELETE FROM 表1 WHERE 字段1=值1 ", conn)
conn.Open()
SQLDelete.ExecuteNonQuery()
conn.Close()
End Sub

' 改
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim SQLUpdate As OleDb.OleDbCommand = New OleDb.OleDbCommand( "UPDATE 表1 SET 字段2=值3 WHERE 字段1=值1 ", conn)
conn.Open()
SQLUpdate.ExecuteNonQuery()
conn.Close()
End Sub
End Class