excel利用vba連接sqlserver上的數據庫？

sub test()Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" cnn.Open strCn SQL = "" cnn.Open strCn '與數據庫建立連接，如果成功，返回連接對象cn rs.Open SQL , cn '執行strSQL所含的SQL命令，結果保存在rs記錄集對象中 cnn.Close Set cnn = Nothingend sub

請參考

連接數據庫后，通過寫SQL語句實現增刪改查