Database

Set oConnection = goPackage.Connections.New("SQLOLEDB")
        oConnection.ConnectionProperties("Integrated Security") = "SSPI"
        oConnection.ConnectionProperties("Persist Security Info") = False
        oConnection.ConnectionProperties("Initial Catalog") = "[OurTableName]"
        oConnection.ConnectionProperties("Data Source") = "[OurServerName]"
        oConnection.ConnectionProperties("Application Name") = "DTS Designer"        
        oConnection.Name = "[OurServerName]"
        oConnection.ID = 1
        oConnection.Reusable = True
        oConnection.ConnectImmediate = False
        oConnection.DataSource = "[OurServerName]"
        oConnection.ConnectionTimeout = 60
        oConnection.Catalog = "Reference"
        oConnection.UseTrustedConnection = True
        oConnection.UseDSL = False

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


CREATE PROCEDURE [dbo.p_SampleDateRangeProc]
        @StartDate	datetime,
        @EndDate	datetime
AS

	select * from YourTable t (nolock)
	where t.DateField >= @StartDate 
	and   t.DateField <= @EndDate

If @@Error <> 0
    Return -1

Return 0    


GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

With the ? the SQL engine say: Syntax error or access violation  
                               Invalid descriptor index

country_ext_code(PK)  country_name
1                    USA
297                  ARUBA
54                   ARGENTINA

country_ext_code(FK) Rate_Group_Phone_Code 
1                    1 
297                  1

Countries_Extensions.country_ext_code 
54

Imports System.Data.OleDb
Imports System.Data.SqlClient

Module Module1

    Sub Main()
        Randomize(-1000)
        Dim start As Date = Date.Now
        ExecuteDAO()
        System.Console.WriteLine("DAO output took " & DateDiff(DateInterval.Second, start, Date.Now) & " seconds.")
        start = Date.Now
        ExecuteOleDb()
        System.Console.WriteLine("OleDb output took " & DateDiff(DateInterval.Second, start, Date.Now) & " seconds.")
        start = Date.Now
        ExecuteSql()
        System.Console.WriteLine("Sql output took " & DateDiff(DateInterval.Second, start, Date.Now) & " seconds.")
        System.Console.WriteLine("Press any key to continue...")
        System.Console.Read()
    End Sub

    Public Function ExecuteOleDb()
        Dim conn As OleDbConnection
        Dim cmd As IDbCommand
        Dim i, j As Integer
        conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='c:\test.mdb'")
        conn.Open()
        cmd = CreateCommand(conn)
        For i = 1 To 8760
            cmd.Parameters(0).Value = New Date(2002, 1, 1).AddHours(i - 1)
            For j = 1 To 40
                cmd.Parameters(j).Value = Rnd()
            Next
            cmd.ExecuteNonQuery()
        Next
        conn.Close()
    End Function
    Public Function ExecuteSql()
        Dim conn As SqlConnection
        Dim cmd As IDbCommand
        Dim i, j As Integer
        conn = New SqlConnection("Data Source=COMPUTER\SQLServer; Database=testSQL; Integrated Security=SSPI")
        conn.Open()
        cmd = CreateCommand(conn)
        For i = 1 To 8760
            cmd.Parameters(0).Value = New Date(2002, 1, 1).AddHours(i - 1)
            For j = 1 To 40
                cmd.Parameters(j).Value = Rnd()
            Next
            cmd.ExecuteNonQuery()
        Next
        conn.Close()
    End Function
    Public Function ExecuteDAO()
        Dim dbEng As DAO.DBEngineClass = New DAO.DBEngineClass()
        Dim wk As DAO.Workspace = dbEng.Workspaces(0)
        Dim db As DAO.Database = wk.OpenDatabase("C:\test.mdb")
        Dim rs As DAO.Recordset = db.OpenRecordset("Test")
        Dim i, j As Integer
        For i = 1 To 8760
            rs.AddNew()
            rs.Fields(0).Value = New Date(2002, 1, 1).AddHours(i - 1)
            For j = 1 To 40
                rs.Fields(j).Value = Rnd()
            Next
            rs.Update()
        Next
        rs.Close()
        db.Close()
    End Function

    Public Function CreateCommand(ByVal conn As IDbConnection) As IDbCommand
        Dim cmd As IDbCommand = conn.CreateCommand()
        Dim param As IDbDataParameter
        param = cmd.CreateParameter()
        param.ParameterName = "@obs"
        param.DbType = DbType.DateTime
        cmd.Parameters.Add(param)
        Dim cmdText As String = "INSERT INTO Test (Observation"
        Dim cmdTextParams As String = "@obs"
        Dim scen As Integer
        For scen = 1 To 40
            param = cmd.CreateParameter()
            param.ParameterName = "@val" & scen
            param.DbType = DbType.Double
            cmd.Parameters.Add(param)
            cmdText &= ", Val" & scen
            cmdTextParams &= ", @val" & scen
        Next
        cmdText &= ") VALUES (" & cmdTextParams & ")"
        cmd.CommandText = cmdText
        cmd.Prepare()
        Return cmd
    End Function

End Module