Case XmlNodeType.Text

　　ListBox1.Items.Add(xtr.Value)

　　Case XmlNodeType.EndElement

　　ListBox1.Items.Add("</" &xtr.Name &">")

　　End Select

　　End While

　　xtr.Close()

　　''关闭xmlTextReader

　　//========再把数据库中所有数据显示在ListBox中========

　　''双击"查看全部"按钮

　　''写入下面的一些代码:

　　ListBox1.Items.Clear()

　　''这些代码大家应该可以看得懂了

　　OleDbConnection1.Open()

　　Dim selall As String

　　selall = "select * from users"

　　OleDbCommand1 = New OleDbCommand

　　Me.OleDbCommand1.CommandText = selall

　　Me.OleDbCommand1.Connection = OleDbConnection1

　　Try

　　Dim creader As OleDbDataReader = OleDbCommand1.ExecuteReader()

　　While creader.Read

　　ListBox1.Items.Add("name: " &creader("nameid").ToString() &"; age :" &creader("age").ToString() &"; faverity :" &creader("faverity").ToString())

　　End While

　　creader.Close()

　　Catch ex As Exception

　　ListBox1.Items.Add("Errors")

　　End Try

　　OleDbConnection1.Close()

　　//==========================再来进完成删除按钮=================

　　''双击"删除"按钮

　　''写入以下的代码

　　If TextBox4.Text <> "" Then

　　''如果不为空，进行以下操作

　　ListBox1.Items.Clear()

　　''先清空ListBox

　　OleDbConnection1.Open()

　　'' 建立连接

　　Dim delstring As String

　　delstring = TextBox4.Text

　　Dim delsel As String

　　delsel = "select * from users where nameid=''" &delstring &"''"

　　''创建查询字符串

　　OleDbCommand1 = New OleDbCommand

　　Me.OleDbCommand1.CommandText = delsel

　　Me.OleDbCommand1.Connection = OleDbConnection1

　　Try

　　Dim selreader As OleDbDataReader = OleDbCommand1.ExecuteReader()

　　If Not selreader.Read Then

　　''假如读不到，就表明数据库无此数据，无法进行删除操作

　　MessageBox.Show("数据库中无该记录!")

　　Else

　　selreader.Close()

　　''要对数据进行操作，必须首把DataReader关掉

　　Dim delrecord As String

　　delrecord = "delete * from users where nameid=''" &delstring &"''"

　　''建立删除字符串sql语句，以上都是

　　OleDbCommand1 = New OleDbCommand

　　Me.OleDbCommand1.CommandText = delrecord

　　Me.OleDbCommand1.Connection = OleDbConnection1

　　Me.OleDbCommand1.ExecuteNonQuery()

　　Me