Private Sub toolStripLabel1_Click(sender As Object, e As EventArgs)
con = New SqlConnection(strCon)
con.Open()
Dim com As New SqlCommand()
For i As Integer = 0 To dataGridView1.Rows.Count - 2
If dataGridView1.Rows(i).Cells(0).Value IsNot Nothing Then
Dim id As [String] = dataGridView1.Rows(i).Cells(1).Value.ToString()
sql = "delete from usernamepassword where id='" & id & "'"
com.Connection = con
com.CommandType = CommandType.Text
com.CommandText = sql
com.ExecuteNonQuery()
End If
Next
End Sub