将 .txt文件转换到SQL Server的问题

[0csdn0]

我现有多条数据是以.txt文件保存的，每条记录的字段用；隔开，例如：
70009W;广州富康汽车贸易有限公司;;;86641980;;510420;;广州黄石东路68号
70010X;武汉神龙商贸有限公司;武汉市汉阳郭茨口玫瑰园东村2号;武汉市汉阳郭茨口玫瑰园东村2号;027-84877836;027-84877835;430051;张亮;武汉
现在我需要将它们保存到SQL Server的库表中，不知如何做到，请高手赐教！！！

有一部分程序，不知是否有借鉴作用，请高手给一完整的代码，谢了！！
Private Sub txttoDB(fname As String)

rdoCN.Execute "truncate table sy", rdExecDirect

'DoEvents

sSQL = bcp.Text & " " & dbname.Text & ".dbo.sy in " & _
fname & " /t , /r \n /c -U sa -P -S " & sname.Text
bulk = Shell(sSQL, vbNormalFocus)

End Sub