SoloCodigo

Hola a todos, tengo un problema con un DataGridView, me explico: en un formulario de Windows tengo un DataGridView que me muestra los datos de una tabla, yo lo que quiero hacer es seleccionar una de las filas y borrarla pero lo que me hace es borrar la siguiente y no se porque. Aquí os dejo el código para que me podaís decir que es lo que hago mal:


Dim deleteCommand As OleDbCommand = connection.CreateCommand()
deleteCommand.CommandText = "DELETE FROM `Empresas` WHERE `Cod_em`=@codigo"

Dim parameter1 As OleDbParameter = New OleDbParameter("@codigo", OleDb.OleDbType.Integer)

parameter1.Value = Me.EmpresasDataGridView.CurrentRow.Cells(0).Value
deleteCommand.Parameters.Add(parameter1)

connection.Open()

deleteCommand.ExecuteNonQuery()

connection.Close()

Muchas gracias