vb.net操作数据库之ACCESS（1）

  一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现CSDN上
还是每天有人要问这些内容，我有的时候就懒的回答，呵呵，主要不断的去找代码给他们累啊。所以还是听高人的，来
个一劳永逸，自己重新温习下，也好给其他人一些帮助。
 
    这个数据库操作我会写个系列性的吧， 先写ACCESS。不知道这个一篇能写多长，不行我要分级篇了。
    其实ACCESS的操作基本都其他数据库一个样，只是长的不一样，大家有种畏惧还是陌生？其实是纸老虎啦。
    好了，先说连接方面：
Public Function DB_CnStr() As String
Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "./FlashCard.mdb"
End Function
  上面的代码就是一个公用函数，因为多处要用到，懒得每次都写，直接调用下就OK了。中间部分就是一个数据库连接字串，
Data Source=" & Application.StartupPath & "./FlashCard.mdb"这里就是设置你的数据库地址，具体代码不用我解释了吧？
    如果有密码就需要再加一个账号密码了.
     User ID=myUsername;Password=myPassword
这个资料太多了，也基本差不多，随便抓抓就来咯。
那下面是不是要说说如何操作了？对，操作数据库嘛，无非就是查询，增加，删除，修改这几种。代码方面基本也差不多了，只是SQL上要换名字。废话不说了，直接上代码好了。
‘这里就是“查询”部分咯，具体怎么查是写SQL的问题了，先不讨论
’先连接
DBConnection.ConnectionString = DB_CnStr()
DBConnection.Open()
'开始查询
Dim sql As New System.Text.StringBuilder
sql.Append(" SELECT * from WORDINFO")
sql.Append(" WHERE CLASS='").Append(Classstring).Append("'")
Dim cmd As New OleDb.OleDbCommand(sql.ToString, DBConnection)
Dim RS As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(cmd)
DT = New DataTable
RS.Fill(DT)
DBConnection.Close()
'有查到则显示出来
Rowcount = DT.Rows.Count
If Rowcount = 0 Then
MsgBox("No Reco