Vb datagridview row delete

Code:

DataTable dt = new DataTable();
dt.Rows.RemoveAt(dataGridView1.CurrentRow.Index);

Code:

Dim strDelete As String = "DELETE FROM TBL_NAME WHERE colname = "+ dataGridView1.CurrentRow.Cells[0].Value;
Dim cmdDelete As New OleDbCommand(strDelete, cnn)
da.DeleteCommand = cmdDelete

DataRow rowDel = menikDataSet.Tables[TBL_NAME].Rows[dataGridView1.CurrentRow.Index];
ImenikDataSet.Tables[TBL_NAME].Rows.Remove(rowDel);
ad.Update(ds.Tables[TBL_NAME]);

Code:
   
            Dim strDelete As String = "DELETE * FROM Imenik WHERE ID = " + DataGridView1.CurrentRow.Cells(0).Value
            Dim cnn As New OleDb.OleDbConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Imenik;Persist Security Info=True;Integrated Security=True")
            Dim cmdDelete As New OleDb.OleDbCommand(strDelete, cnn)
            Dim da As New ImenikDataSetTableAdapters.ImenikTableAdapter
            ImenikTableAdapter.DeleteCommand = cmdDelete

            DataRow rowDel = ImenikDataSet.Imenik.Rows(DataGridView1.CurrentRow.Index))
            ImenikDataSet.Imenik.Rows.Remove(rowDel)
            ImenikTableAdapter.Update(ImenikDataSet.Imenik)

Code:

        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult
        msg = "Da li zaista želite obrisati kontakt '" + Trim(txtIme.Text) + " " + txtPrezime.Text + " " + txtTvrtka.Text + "' ?"
        style = MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNoCancel
        title = "UPOZORENJE"
        response = MsgBox(msg, style, title)

        Try

            If response = MsgBoxResult.Yes Then
                Dim da As New SqlClient.SqlDataAdapter("Delete * from Imenik where ID = " + Trim(txtID.Text) + "", conn)
                msg = "Kontakt uspješno obrisan!"
                style = MsgBoxStyle.Information Or MsgBoxStyle.OkOnly
                title = "Obavijest"
            Else

            End If

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try