vincular archivos .dbf a access

[computer_si]

Set Rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

Lo tienes que dejar tal cual, para que te muestre la coleccion de tablas.


Select Case UCase(Rs("TABLE_NAME"))

Pongo el UCase para que el nombre de la tabla que es "TABLE_NAME" me lo de en mayusculas y hacer la comparacion en el Case Is, que tendria que ser uno para cada tabla

Select Case UCase(Rs("TABLE_NAME"))
Case Is = "TABLA01"
cn_Ensambles.Execute _
"DROP TABLE TABLA01"
xNum = xNum + 1

Case Is = "TABLA02"
cn_Ensambles.Execute _
"DROP TABLE TABLA02"
xNum = xNum + 1

Case Is = "TABLAxx"
cn_Ensambles.Execute _
"DROP TABLE TABLAxx"
xNum = xNum + 1

End Select

Saludos