...
...
Try
SentenciaSql="SELECT codigocompania, codigoarticulo, descripcion, nombrecorto , precio, porcentajeitbm , imagen FROM articulos where codigocompania = " & "'" & CodigoCompaniae & "'" & " and codigogrupo = " & "'" & CodigoGrupoe & "'" & " and EStatus = " & "'" & "A" & "'"
Dim SenderFilter As Object = ModConexionSQL.sQL1.ExecQueryAsync("SQL", SentenciaSql, Null)
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As JdbcResultSet)
If Success Then
Do While rs.NextRow
...
...
El NextRow revienta al leer el registro 25, siempre se queda ahí, hemos probado con otras tablas y pasa lo mismo
usamos la libreria jtds-1.3.1.jar-