Hi,

I am trying to open a paradox 8 table to add and update records.

When I get to the "set rs" line I get RT error 3078. It says it can't find the table.

I have never used VB with Paradox. Can anyone tell me where I am going wrong?

Private Sub CommandStart_Click()

Dim ws As Workspace
Dim db As Database
Dim strConnection As String
Dim rs As Recordset

Set ws = DBEngine.Workspaces(0)
Let strConnection = "ODBC;DSN=Paradox8" & DatabaseName & ";UID=" & UserName & ";PWD=" & UserPassword
Set db = ws.OpenDatabase("", False, False, strConnection)

Set rs = db.OpenRecordset(App.Path & "\PartsInventory.db")

'Test
rs.MoveFirst
Do While Not rs.EOF
Text1.Text = rs("Partnumber")
rs.MoveNext
Loop

End Sub