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