dim str as string
dim dbset as new dataset
Dim str As String
        str = "select ......   from......     "
        Dim adp As New OleDbDataAdapter(str, constr)
        adp.Fill(dbset, "aa")
        DataGrid1.DataSource = dbset.Tables("aa")
Dim row As Integer
        row = DataGrid1.CurrentRowIndex
dbset.Tables("aa").Rows(row).Delete()
        dbset.Tables("aa").AcceptChanges()

不知是否符合你的要求

如果还不能实现，就再看看这个吧。我调了一下，可以实现的
Imports System.Data
Imports System.Data.OleDb

Public Class Form2
    Inherits System.Windows.Forms.Form
    Dim dbset As New DataSet

  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source=e:\VB.NETziliao\publicdatabase\db1.mdb"
        Dim mycon As New OleDb.OleDbConnection(constr)

        Dim str As String

        str = "select id as id,xuehao as 学号,xingming as 姓名,kemufenshu as 科目分数,banjimingcheng as 班名称 from chengji    "
        Dim adp As New OleDbDataAdapter(str, constr)
        adp.Fill(dbset, "aa")
        DataGrid1.DataSource = dbset.Tables("aa")


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim row As Integer
        row = DataGrid1.CurrentRowIndex
        dbset.Tables("aa").Rows(row).Delete()
        dbset.Tables("aa").AcceptChanges()
    End Sub

抱歉，没注意到asp