alguien me puede decir por que no me sale el mensaje de las rows cuando no hay?¿?
Dim lineasafectadas As OleDbDataReader
lineasafectadas = comacinco.ExecuteReader
If lineasafectadas.HasRows Then
Dim rows As Integer = 0
While lineasafectadas.Read()
rows += 1
End While
MsgBox(rows)
If rows = 0 Then
MessageBox.Show("cero")
Dim Lecto1 = comados.ExecuteNonQuery
Else
MessageBox.Show("hay")
End If
End If
