Hi

Thank you for this reply.

Actually my VB6 program looks that:

Dim oSQLServer As New SQLDMO.SQLServer

Dim oDatabase As New SQLDMO.Database

Dim oTheResults As SQLDMO.QueryResults

.../...

Public Function myQuery(r As String) As Integer

Dim ret As...