Private g_cnn As New ADODB.Connection
Private Sub Command1_Click()

Dim rs As New ADODB.Recordset

g_cnn.ConnectionTimeout =  4 
g_cnn.Provider =  "sqloledb" 
g_cnn.Properties( "Data Source" ).Value = g_ServerName
g_cnn.Properties( "Initial Catalog" ).Value = g_DatabaseName

If g_bWinAuth Then
        g_cnn.Properties( "Integrated Security" ).Value =  "SSPI" 
Else
    g_cnn.Properties( "User ID" ).Value = g_UserName
    g_cnn.Properties( "Password" ).Value = g_Password
End If

g_cnn.Open


Set rs.ActiveConnection = g_cnn

rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Source =  "exec dt_Select_Debt 10 , 1  "
rs.Open  "exec dt_Select_Debt 10 , 1  ", g_cnn
MsgBox (rs.RecordCount)


End Sub