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()
