Visual Basic.NET - URGENTE! eliminar fila seleccionada en datagrid

Hola!
Mi problema es el siguiente:
quiero eliminar del grid y la base de datos la fila seleccionada. cuando marco una fila en el grid...no se borra esa...sino que se borra la primera siempre...
ya se que tiene que ser una tonteria pero por mas que miro...no logro que funcione..alguien me puede ayudar? Gracias!!

Este es el codigo :

Dim ruta As String = System.IO.Directory.GetCurrentDirectory()
Dim strConesion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta & "./proyecto.mdb"
Dim Conec As New System.Data.OleDb.OleDbConnection(strConesion)
Dim cb As System.Data.OleDb.OleDbCommandBuilder
Dim datase As New DataSet
Dim consulta As System.Data.OleDb.OleDbDataAdapter
Dim fila_actual As Long
Dim total_filas As Long
Conec.Open()
consulta = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM reserva_serv", Conec)
cb = New System.Data.OleDb.OleDbCommandBuilder(consulta)
datase = New DataSet("MS_Access_DataSet")
consulta.Fill(datase, "MS_Access_DataSet")
total_filas = datase.Tables("MS_Access_Dataset").Rows.Count - 1
Dim j As Integer
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()
datase.Tables("MS_Access_DataSet").Rows(j).Delete()

consulta.Update(datase, "MS_Access_DataSet")
Conec.Close()

Es normal que se borre siempre la fila 0, estás ordenando que se borre la fila j y la variable j la declaras pero no le cambias el valor con lo que se mantiene en 0.

Un saludo.