Using workspace in ADO

I want to convert following DAO code into ADO.

Code:

Dim oRS1 As Recordset     Dim oRS2 As Recordset     Dim oWRK As Workspace     Dim i As Long     i = 0     Set oWRK = CreateWorkspace("", "", "", dbUseODBC)     Set oDB = oWRK.OpenDatabase("vgtp", dbDriverComplete, False, "ODBC;DSN=VGTP;UID=ACCFE;DBQ=VGTP; PWD=ACCFE_X")     Set oRS1 = oDB.OpenRecordset("SELECT * FROM TESTRC")     Do While Not oRS1.EOF         Set oRS2 = oDB.OpenRecordset("SELECT * FROM TESTRC WHERE VELD01 = '" & oRS1(1) & "'", dbOpenDynaset)

Can someone please help me with this. I don't know how to use workspace in ADO.

Enver