Conocer la cantidad de registros.

[SuperPinwi]

Espero q te sirva esto, saludos.

Dim sel As New System.Text.StringBuilder

'Usando COUNT(*) nos devuelve el total que coincide con lo indicado en el WHERE,
sel.Append("SELECT COUNT (*) FROM centrales_ploteadas")
'Definir el comando que vamos a ejecutar
Dim cmd As New OleDb.OleDbCommand(sel.ToString, cnn)
cmd.Parameters.Add("@Nombre", OleDb.OleDbType.Char, 50)
cmd.Parameters.Add("@Clave", OleDb.OleDbType.Char, 40)
'
'Asignamos los avlores recibidos como parámetro
cmd.Parameters("@Nombre").Value = nombre
cmd.Parameters("@Clave").Value = clave
'
'Ejecutamos la consulta
'ExecuteScalar devuelve la primera columna de la primera fila, por tanto, devolverá el número
'de coincidencias halladas
Dim t As Integer = CInt(cmd.ExecuteScalar)