Inserting values into SQL Server table via VBA - vba

Question

Suppose I have a table in Excel with two columns (Name, Rate) (say, this table's name tExcel). Table starts at cell (2,1), and Date is static (in cell (1,1))
I want to insert those values into SQL Server 2008 tRate table with following logic
insert tRate(ID, Rate, Date)
select
s.ObjectID, e.Rate, Date -- date comes from cell(1,1). DateType is smalldatetime
from
tExcel e, tSecurity s
where
e.Name = s.Number
I've created a connection
Sub disp_cust()
Dim adoCN As ADODB.Connection
Dim sConnString As String
Dim sSQL As String
Dim lRow As Long, lCol As Long
Set cn = New ADODB.Connection
sConnString = "Provider=sqloledb;Server=xxx;Database=xxx;User Id=xxx;Password=xxx"
Set adoCN = CreateObject("ADODB.Connection")
adoCN.Open sConnString
adoCN.Close
Set adoCN = Nothing
End Sub
Thanks for help.
EDIT to #jaimetotal answer
sql= "insert tRate(ID, Rate, Date) SELECT s.ObjectId ," & Replace(Row.Cells(2).Value, ",", ".") & ",'" & defaultDate & "' FROM tSecurity s where s.number = '" & row.Cells(1).Value & "'; "

Answer 1

For this sample, I assume that tExcel.Number is the first column and tExcel.Rate is the second. The idea here is to do a for each row in the table (or range) and create an insert/select statement.
Dim rng as Range
Dim defaultDate As string
Dim sql as string, bulkSql as string
Set rng = Range("A1:XX") -- Range of the table.
defaultDate = Format(Range("A2").Value, "yyyy/mm/dd")
bulkSql = ""
'generated sample: insert tRate(ID, Rate, Date) SELECT s.ObjectId, '0.15', '2015/08/24' FROM tSecurity s where s.Number = '007'
For Each row In rng.Rows
sql= "insert tRate(ID, Rate, Date) SELECT s.ObjectId " & "','" & row.Cells(2).Value & "','" & defaultDate & "' FROM tSecurity s where s.number = '" & row.Cells(1).Value & "'; "
bulkSql = bulkSql & sql
Next row
adoCn.Execute bulkSql, , adCmdText
Edit:
If you really mean a table, than you can use this sample based from here.
Dim lo As Excel.ListObject
Dim ws As Excel.Worksheet
Dim lr As Excel.ListRow
Set ws = ThisWorkbook.Worksheets(1)
Set lo = ws.ListObjects("tExcel")
'The other code from the previous sample. Use the following ForEach instead
For Each lr In lo.ListRows
Dim Rate as String
Dim Number as String
Rate = Intersect(lr.Range, lo.ListColumns("Rate").Range).Value
Number = Intersect(lr.Range, lo.ListColumns("Number").Range).Value
'Generate the query from these values instead
Next lr