my code overwrites the record entered, when it should be adding the new record. anyone got any suggestions as to where i should rearrange my code?

-----------------------------------------------------

Dim strConn As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("/clarks03/newapp/database123.mdb") & ";"
        Dim query As String = "select * from [database]"
        Dim MyConnection As New OleDbConnection(strConn)
        Dim objconn As New OleDb.OleDbConnection(strConn)
        Dim myCmd As New OleDbCommand(query, MyConnection)
        Dim dataset1 As DataSet = New DataSet("database")
        Dim objdataadapter As New OleDb.OleDbDataAdapter(query, MyConnection)



        objdataadapter.Fill(dataset1, "database")
        DataGrid1.DataSource = dataset1
        DataGrid1.DataBind()

        Dim NewRow As DataRow
        NewRow = dataset1.Tables("database").NewRow
        NewRow.Item("student ID") = TextBox1.Text
        dataset1.Tables("database").Rows.Add(NewRow)
        DataGrid1.DataSource = dataset1
        DataGrid1.DataBind()


    End Sub
End Class