Private Sub cmdOst_Click()
Dim dbsCurrent As Database
Dim qdfPassThrough As DAO.QueryDef
Dim qdfLocal As DAO.QueryDef
Dim rs As DAO.Recordset
Dim strMessage As String
Dim d1 As Date, d2 As Date
Dim ds1 As String, ds2 As String
'Set con = Application.CurrentProject.Connection
d1 = Me.d1
d2 = Nz(Me.d2, 0)
ds1 = Chr(39) & Format(d1, "yyyy") & "." & Format(d1, "mm") & "." & Format(d1, "dd") & Chr(39)
ds2 = Chr(39) & Format(d2, "yyyy") & "." & Format(d2, "mm") & "." & Format(d2, "dd") & Chr(39)

Set dbsCurrent = CurrentDb

On Error Resume Next
dbsCurrent.QueryDefs.Delete "sf"

Set qdfPassThrough = _
dbsCurrent.CreateQueryDef("SF")

qdfPassThrough.Connect = "ODBC;DATABASE=<BD>;UID=<User>;PWD=<Password>;DSN=<BD_DSN>"
qdfPassThrough.SQL = "exec dbo._SP_Get_SF_Period " & ds1 & "," & ds2

qdfPassThrough.ReturnsRecords = True

DoCmd.Hourglass True

Set qdfLocal = dbsCurrent.CreateQueryDef("")
qdfLocal.SQL = "SELECT * FROM SF"

Set rs = qdfLocal.OpenRecordset()


DoCmd.OpenForm "f_Sf_string", acFormDS
Forms("f_Sf_string").RecordSource = "SELECT * FROM SF"
DoCmd.Hourglass False

End If
End Sub