Visual Basic - Importar Planos a SQL Desde VB 6.0

solicito ayuda para importar datos desde un archivo plano a una Base de Datos SQL Server 2000. Si alguien tiene un ejemplo, lo agradecería.
De antemano mil Gracias.

Podes usar Bulk Copy con SQLDMO, esta es una forma para archivos planos delimitados por comas y terminados con salto de línea:

Dim loSQLServer As SQLServer, loBulkCopy AS BulkCopy

Set loSQLServer = New SQLServer
Set loBulkCopy = New BulkCopy

loSQLServer.Connect "Servidor","Usuario","Password"

With loBulkCopy
.DataFileType=1
.DataFilePath="C:\MiArchivo.txt"
End With

loSQLServer.Databases.Item("BaseDeDatos").Tables.Item("Tabla").ImportData(loBulkCopy)