Am getting the error (-2147467259 - Could not find installable ISAM) on the
line "comMSAccessCommand.Execute" in the procedure _ProcessCommand_ (see
below) but not in the procedure _DropWorkTables_. I'm using ADO 2.1, VB6,
Access 97, WINNT 4.0 SP6. Anyone able to help me? Do I need to update ADO,
VB6, and/or Access with service packs?

How do I check to see if service packs/updates have been applied to ADO,
VB6, and Access? Bottom of the

Private Function ProcessCommand(strCommandText As String) As Boolean

Dim conMSAccessConnection As ADODB.Connection
Dim comMSAccessCommand As ADODB.Command

On Error GoTo ProcessCommandErrHndlr

  Set conMSAccessConnection = New ADODB.Connection
  Set comMSAccessCommand = New ADODB.Command

  conMSAccessConnection.ConnectionString = MSACCESS_CONNECT_STRING

  conMSAccessConnection.Open

  comMSAccessCommand.CommandText = strCommandText
  comMSAccessCommand.CommandType = adCmdText
  comMSAccessCommand.ActiveConnection = conMSAccessConnection
  comMSAccessCommand.Execute

  conMSAccessConnection.Close

  Set comMSAccessCommand = Nothing
  Set conMSAccessConnection = Nothing

  ProcessCommand = True

Exit Function

ProcessCommandErrHndlr:

  MsgBox Str(Err.Number) & " " & Err.Description, vbExclamation, "Error!"
  ProcessCommand = False

End Function

Private Sub DropWorkTables()

Dim conMSAccessConnection As ADODB.Connection
Dim comMSAccessConnection As ADODB.Command
Dim rsWorkTablesSchema As ADODB.Recordset
Dim strTableName As String
Dim strTableType As String

On Error GoTo DropWorkTablesErrHndlr

  Set conMSAccessConnection = New ADODB.Connection
  Set comMSAccessConnection = New ADODB.Command
  Set rsWorkTablesSchema = New ADODB.Recordset

  conMSAccessConnection.ConnectionString = MSACCESS_CONNECT_STRING

  conMSAccessConnection.Open

  Set rsWorkTablesSchema = conMSAccessConnection.OpenSchema(adSchemaTables,
Array(Empty, Empty, Empty, "TABLE"))

  Do Until rsWorkTablesSchema.EOF

    strTableName = rsWorkTablesSchema!TABLE_NAME
    strTableType = rsWorkTablesSchema!TABLE_TYPE

    If strTableType = "TABLE" Then
      comMSAccessConnection.CommandText = "DROP TABLE " & strTableName
      comMSAccessConnection.CommandType = adCmdText
      comMSAccessConnection.ActiveConnection = conMSAccessConnection
      comMSAccessConnection.Execute
    End If

    rsWorkTablesSchema.MoveNext

  Loop

  rsWorkTablesSchema.Close
  conMSAccessConnection.Close

  Set rsWorkTablesSchema = Nothing
  Set comMSAccessConnection = Nothing
  Set conMSAccessConnection = Nothing

Exit Sub

DropWorkTablesErrHndlr:

  MsgBox Str(Err.Number) & " " & Err.Description, vbExclamation, "Error!"
  Resume Next

End Sub

TIA,
john

--
John Chambless