[VBA ] 新新新手要如何將資料庫查出來的值放到變數中阿

[pokie77 (加油!)]

      如題  請問各位高手  我陷在可以在excel中 看到所下的資料

             我要怎將 其中的一個欄位設為變數a  一個欄位設為變數b

                然後將a*b  做運算

　　　　　　　　　　我不知道要怎做才可以將撈出來的值放到變數中

　　　　　　　　　　　　　　麻煩各位高手指點迷津　－－

　　　　　　　　　　　　　　感激不盡



             Sub ConnSQL()

' ========== 在此設定你需要的變數 ==========
SQLStr = "select * from dbo.CP2_LOSS_DIE"
ConnStr = "Driver={SQL Server}; DATABASE=DEVNVMTEST; SERVER=wehcdbms51; UID=y130; PASSWORD=y130123"
' ==========================================

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
conn.ConnectionString = ConnStr
conn.Open
 rs.Open SQLStr, conn

counter = 0
Do While Not rs.EOF
counter = counter + 1
For i = 0 To rs.fields.Count - 1
Cells(counter, i + 1).Value = rs(i)
Next
rs.movenext
Loop

End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.35.31.57