czf2505的专栏

一     连接的创建：Public Sub OpenXLSConn(strFile As String)Const ProcName = "OpenXLSConn"On Error GoTo ErrHandlerDim strConn As String1           strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data S

一：   创建连接Public Function CreateSQLConn() As BooleanConst ProcName = "CreateSQLConn"Dim strConnection As StringOn Error GoTo ErrHandler1       Set objSQLConn = New ADODB.Connection

Const ProcName = "Command1_Click"Dim objXLSRS As ADODB.RecordsetDim strXLSSQL As StringDim i As LongDim strSplit() As StringDim strPLU As StringDim strAmt As StringDim strQty As String

objSQLConn.Execute strSQL

方法一：  利用管理员权限，打开cmd,利用指令强行进行注册方法二：  重新下载  Service pack6 ，打开一个已经引用过该类库的项目，再关掉该项目。然后在新项目中再重新引用一次。