Public Sub Workbook_Open()
Pri_Call
End Sub

Sub Pri_Call()
Dim con As ADODB.Connection:    Set con = New ADODB.Connection

Dim dt As Date

'dt = Format(Date, "DD.MM.YY")

dt = InputBox("Введите дату в формате дд.мм.гг", "Ввод даты", Format(Date, "dd.mm.yy"))

con.Open "Provider=MSDAORA.1;Password=pwd;User ID=user;Data Source=mydb;Persist Security Info=True"

Cells( 1 ,  2 ).Value = dt
...
Dim rspricall1 As ADODB.Recordset:         Set rspricall1 = New ADODB.Recordset
Set rspricall1.ActiveConnection = con

Sql = " select count(t.chrg_id), sum(t.amount_$) "
Sql = Sql & " from bis.charges t"
Sql = Sql & " where t.prcl_prcl_id=10109"
Sql = Sql & " and t.amount_$=0"
Sql = Sql & " and t.del_user is null"
Sql = Sql & " and t.navi_date like '" + dt + "'"

rspricall1.Open Sql, con
Sheets("Лист1").Select
Cells( 3 ,  2 ).CopyFromRecordset rspricall1
Cells( 4 ,  2 ).CopyFromRecordset rspricall1
rspricall1.Close