Dim MyODA As OleDb.OleDbDataAdapter
        Dim Conn As String = "provider=Microsoft.jet.oledb.4.0;data source =学籍管理数据库.mdb"
        Dim MyConn As New OleDb.OleDbConnection(Conn)
        MyConn.Open()
        Dim addstr As String = "insert into users (帐号,密码) values ('"& textbox1.text &"','" & textbox2.text & "');"
        Dim commd As New Data.OleDb.OleDbCommand

        commd = MyConn.CreateCommand()

       commd.CommandText = addstr

        commd.ExecuteNonQuery()

谢了啊。。老哥。。。我搞定了。。。