背景：項目組有個自動化測試項目，實在excel中利用VBA開發的；時間比較久遠，我前面的哥們走后，這個軟件一直在用，最近系統不知道是不是更新的緣故；有些代碼除了問題；
先上源碼：
Dim Conn As Object, Rst As Object
Dim sqlStr$
Dim str_start_SN$, str2$
str_start_SN = Trim(Range("f5"))
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Conn.Open "DRIVER=SQL Server;SERVER=XXXX;DATABASE=XX;UID=XX;password=XXXX"
intSql = "select * from [HTDRepair].[dbo].[CarveSN] where SN='" & str_start_SN & "'"
Debug.Print intSql
Rst.Open intSql, Conn，
fqty =CInt（Conn.Excute(intSQL)(0)）
If fqty > 0 Then '保證主鍵不為空
MsgBox "該SN已雕刻", 48, "雕刻查重"
Else
MsgBox &#
)
