vb.net 利用ADO实现数据库的删除、插入、修改操作（adodb）

Public Class 显示学生信息
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection

Public Function connect_db() As ADODB.Connection
'Dim conn As New ADODB.Connection
Dim constr As String
constr = ("Driver={SQL Server};server=PC-201105311336\SQLEXPRESS;Uid=sa;Pwd=123456;Database=jiaxiaoai")
conn.Open(constr)
connect_db = conn
'sql = "select * from student"
End Function

Private Sub firstbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firstbtn.Click
rs.MoveFirst()
xuehaotext.Text = rs(0).Value
nametext.Text = rs(1).Value
If (rs(2).Value = 0) Then
sextext.Text = ""
Else
sextext.Text = Str(rs(2).Value)
End If
If (rs(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(rs(3).Value)
End If
End Sub

Private Sub upbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upbtn.Click
rs.MovePrevious()
If rs.BOF = True Then
rs.MoveFirst()
End If
xuehaotext.Text = rs(0).Value
nametext.Text = rs(1).Value
If (rs(2).Value = 0) Then
sextext.Text = ""
Else
sextext.Text = Str(rs(2).Value)
End If
If (rs(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(rs(3).Value)
End If

End Sub

Private Sub downbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles downbtn.Click
rs.MoveNext()
If rs.EOF = True Then
rs.MoveLast()
End If
xuehaotext.Text = rs(0).Value
nametext.Text = rs(1).Value
If (rs(2).Value = 0) Then
sextext.Text = ""
Else
sextext.Text = Str(rs(2).Value)
End If
If (rs(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(rs(3).Value)
End If

End Sub

Private Sub endbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles endbtn.Click
rs.MoveLast()
xuehaotext.Text = rs(0).Value
nametext.Text = rs(1).Value
If (rs(2).Value = 0) Then
sextext.Text = ""
Else
sextext.Text = Str(rs(2).Value)
End If
If (rs(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(rs(3).Value)
End If

End Sub

Private Sub 显示学生信息_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load '窗口初始化函数
Dim sql As String
sql = "select * from student"
conn = connect_db()
rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
'connect(sql)
rs.MoveFirst()
xuehaotext.Text = rs(0).Value
nametext.Text = rs(1).Value
If (rs(2).Value = 0) Then
sextext.Text = ""
Else
sextext.Text = Str(rs(2).Value)
End If
If (rs(3).Value = 0) Then
scoretext.Text = ""
Else
scoretext.Text = Str(rs(3).Value)
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insertbtn.Click
Dim sex
Dim score
sex = Val(sextext.Text)
score = Val(scoretext.Text)
'sql = "insert into student ('" & xuehaotext.Text & "','" & nametext.Text & "','" & sex & "','" & score & "')"
'rs.Open(sql, conn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
rs.AddNew()
rs(0).Value = xuehaotext.Text
rs(1).Value = nametext.Text
rs(2).Value = sex
rs(3).Value = score
rs.Update()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updatebtn.Click

Dim sex
Dim score
sex = Val(sextext.Text)
score = Val(scoretext.Text)
rs(0).Value = xuehaotext.Text
rs(1).Value = nametext.Text
rs(2).Value = sex
rs(3).Value = score
rs.Update()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebtn.Click
rs.Delete()
End Sub

Private Sub allbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allbtn.Click

End Sub
End Class