You simply need to disconnect to close your connection, for example the oConnection.Close line in this VB Script example:

See an Account detail

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3

Dim oConnection
Dim oRecordset
Dim sLastVendor
Dim dTotalApplied
Dim dAmountDue
Dim fname

Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")

fname=InputBox("Enter the Name:")
'fname=InputBox("Enter the ListID:")

oConnection.Open "DSN=Quickbooks Data;OLE DB Services=-2"
oRecordset.CursorLocation = adUseClient

oRecordset.Open "SELECT * FROM Account WHERE Name = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic
'oRecordset.Open "SELECT * FROM Account WHERE ListID = '" & fname & "'" , oConnection, adOpenStatic, adLockOptimistic

if (not oRecordset.EOF) Then

MsgBox oRecordSet.Fields("ListID")
'MsgBox oRecordSet.Fields("Name")

else

MsgBox "SORRY - NO ROWS WHERE FOUND"
end if

oRecordset.Close
oConnection.Close