(no subject)

[system]

I am using the Progress SQL 92 driver to connect to Vantage using the
following VBA code. I get connected OK but can't retrieve any information
via the SQL call. Can anyone point me in the correct direction?
TIA,

Private Sub Part___AfterUpdate()
Dim conVantage As Connection
Dim rstPart As Recordset
Dim wrkODBC As Workspace
Dim strPart, strSQL, strMessage As String

strPart = Me![Part #]
Set wrkODBC = CreateWorkspace("Vantage", "sysprogress", "", dbUseODBC)
Set conVantage = wrkODBC.OpenConnection("Progress", dbDriverComplete,
True)

strSQL = "Select * from Part Where Company = 'XXX' and "
strSQL = strSQL & "PartNum = '" & strPart & "';"
Set rstPart = conVantage.OpenRecordset(strSQL)

If rstPart.EOF Then
strMessage = "Non-existant Part Number in Vantage, Enter a valid
Part #"
DoCmd.Beep
If MsgBox(strMessage, vbOKOnly) = vbOK Then
End If
GoTo ERR_Part___AfterUpdate
Else
With rstPart
Me!Desc = !PartDescription
End With
End If
wrkODBC.Close
rstPart.Close

end sub



[Non-text portions of this message have been removed]