Untitled

 Private Sub Delete_data()

      Dim dt As New DataTable
        Dim da As New OleDbDataAdapter
        dt.Clear()
        da = New OleDbDataAdapter("delete * from login where id =" & DataGridView1.CurrentRow.Cells(0).Value, con)

        da.Fill(dt)
        Load_Data()
    End Sub