[Resolvido]criand codigo vba com sql para buscar valor especifico conforme data de caixa de combinação

Boa Tarde, estou tentando criar um código que traga um valor especifico de uma data selecionada a partir de uma caixa de combinação, porem esta dando erro, não sei se algum detalhe no comando sql ou na estrutura do código.

Segue código abaixo:


Private Sub Comb_data_inicial_AfterUpdate()
Dim sql As String
Dim rs As Recordset
Dim Tx_acumulado_inicial As Double


'codigo sql
sql = "SELECT fator_acumulado_cdi" & _
" FROM tbl_cdi" & _
" WHERE(data_cdi = " & Comb_data_inicial & ""

Set rs = CurrentDb.OpenRecordset(sql)


Tx_acumulado_inicial = rs.Fields("fator_acumulado_cdi") 'Caixa de texto que ira receber o valor


Me.Refresh
Me.Requery
Me.Recalc
End Sub

Muito Obrigado Avelino.
Deu Certo.
Valeu!!!