就差一点可以成功了，数据查询问题
Dim oraConn As New OleDbConnection()
oraConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw"
oraConn.Open()
Dim 姓名 As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()
Dim queryString = "delete from 三分队 where 姓名 = '" & 姓名 & "' "
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(queryString, oraConn)
Dim mark As DataSet = New DataSet
adapter.Fill(mark, "mark")
MessageBox.Show("删除数据成功!")

删除成功后。DataGridView1没有进行刷新现有数据

[解决办法]
Dim oraConn As New OleDbConnection()
oraConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw"
oraConn.Open()
Dim 姓名 As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()
Dim queryString = "delete from 三分队 where 姓名 = '" & 姓名 & "' "
Dim cmd As New OleDbCommand(queryString, oraConn)
cmd.ExecuteNoQuery()
[解决办法]

VB.NET code

Dim oraConn As New OleDbConnection()  oraConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database4.accdb;Persist Security Info=True;Jet OLEDB:Database Password=winamw"  oraConn.Open()  Dim 姓名 As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()  Dim queryString = "delete from 三分队 where 姓名 = '" & 姓名 & "' "  Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(queryString, oraConn)  Dim mark As DataSet = New DataSet  adapter.Fill(mark, "mark")  MessageBox.Show("删除数据成功!")'*****************重新绑定数据*********************** DataGridView1.DataSource=Nothing DataGridView1.DataSource=mark.Tables("mark") DataGridView1.DataBind()