HI...

I HAD THIS CODE.. AND MSG ME THIS ERROR:
CONNECTION IS NOT ENABLED FOR BCP
CAN ANYBODY HELP ME.!! IT´S URGENT!!

---

Dim objServer as new SQLDMO.SQLServer
Dim objBCP as new SQLDMO.BulkCopy
Dim objDB as SQLDMO.Database

''if file doesn't exist and it's an import,
''don't waste time
'If stroption = true then
If exporta.Value = false And Dir(selectedFile) = "" then Exit Sub
'else
'Exit Sub
on error GoTo ErrorHandler
objServer.Connect ServerName, UserName, Password
objServer.EnableBcp = true

set objDB = objServer.Databases(DatabaseName)

With objBCP
.ColumnDelimiter = "|"
.UseExistingConnection = true
'.DataFilePath = "*.txt"
.DataFilePath = selectedFile
.UseBulkCopyOption = true

End With

If exporta.Value = false then
' objDB.Tables(Tablename).ImportData objBCP
objDB.Tables(Tablename).ExportData objBCP
else
' objDB.Tables(Tablename).ExportData objBCP
objDB.Tables(Tablename).ImportData objBCP
End If
End




----