Here is sample code for opening Categories table from sample NorthWind database. You must change only connection string (to use App.Path) and table name (to Phone_Sys_Type_Data):

Dim cnDatabaseConnection As New ADODB.Connection
Dim datPrimaryRS As New ADODB.Recordset

  cnDatabaseConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
  cnDatabaseConnection.Open
  datPrimaryRS.Open "Categories", cnDatabaseConnection, adOpenStatic, adLockOptimistic