vb.net连接access数据库编程

这个简单程序有两块，一块是插入到数据库（Access）中，二块是显示数据库的内容。

1. Imports System.Data.OleDb
3. Public Class Form1
4.     Dim cn As OleDbConnection
5.     Dim cm As OleDbCommand
6.     Dim da As OleDbDataAdapter
7.     Dim ds As DataSet
9.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
10.         TextBox1.Text = ""
11.         TextBox2.Text = ""
12.         TextBox3.Text = ""
13.         TextBox4.Text = ""
14.     End Sub
16.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
17.         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lyb.mdb;Persist Security Info=False")
18.         da = New OleDbDataAdapter("select * from lyb order by 时间 desc", cn)
19.         ds = New DataSet()
20.         da.Fill(ds, "lyb")
21.         DataGridView1.DataSource = ds.Tables("lyb")
22.     End Sub
24.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
25.         Dim Name As String = TextBox1.Text
26.         Dim Email As String = TextBox2.Text
27.         Dim Subject As String = TextBox3.Text
28.         Dim Memo As String = TextBox4.Text
29.         If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
30.             MessageBox.Show("字段有未填写,请再次填写!")
31.             Exit Sub
32.         End If
34.         'Try
35.         cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lyb.mdb;Persist Security Info=False")
36.         cn.Open() '插入前，必须连接
37.         Dim sql As String = "insert into lyb (姓名,Email,主题,内容) values('" & Name & "','" & Email & "','" & Subject & "','" & Memo & "')"
38.         cm = New OleDbCommand(sql, cn)
39.         cm.ExecuteNonQuery()
40.         cn.Close()
41.         MessageBox.Show("保存成功！！！")
42.         'Catch ex As Exception
43.         '    MessageBox.Show("保存失败！")
44.         'End Try
45.     End Sub
46. End Class