Set obDB = New ADODB.Connection
With obDB
        .Provider = "SQLOLEDB"
        .ConnectionString = "User ID=...;Password=...;DATA SOURCE=...;INITIAL CATALOG=..."
        .Open
End With
Set obReport = New ADODB.Recordset
With obReport
      .ActiveConnection = obDB
      .Open INSERT INTO tblLocal(F1, F2) SELECT F1, F2 FROM tblServer
End With

Set cmd = New ADODB.Command
    cmd.ActiveConnection = cnn
    cmd.CommandText = "delete from pResource where spid = @@spid "
    cmd.CommandType = adCmdText
    cmd.Execute
    
    cmd.CommandText = "insert pResource (spid, ResourceID) " & _
    "select @@spid,ResourceID " & _
    "from tResource " & _
    "where len(replace(Brief,' ','')) = 20 and " & _
    "BalanceID in (2140, 2123, 55015845) and " & _
    " (DateEnd <= current_timestamp or DateEnd = '19000101') "
    cmd.CommandType = adCmdText
    cmd.Execute
    
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "AccList_Rest"
    cmd.Parameters.Item("@Date") = iDate
    cmd.Execute
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "delete from BalData_serv"
    cmd.CommandText = "insert into [server].bd.dbo.BalData (AccName, AccBrief, Rest, RestBs, Fund, Type, iDate) select r.Name as AccName, r.Brief as AccBrief, abs(rl.Rest) as Rest, abs(rl.RestBs) as RestBs, " & _
    "SUBSTRING (replace(s.ISONumber,' ',''),1,3) as Fund, " & _
    "r.CharType as Type, " & DDSQL(iDate) & " as iDate " & _
    "from pResList rl inner join " & _
    "tResource r on rl.spid = @@spid  and rl.Rest != 0 and rl.ResourceID = r.ResourceID inner join " & _
    "tCurrency s on rl.FundID = s.CurrencyID "
    cmd.CommandType = adCmdText
    cmd.Execute