รบกวนด้วยครับ VB2008 ทำ 2 Connection จะ SELECT INTO MS-SQL ระหว่าง access2000 กับ MS-SQL 2005 โดยเลือกจาก DateTimePicker ครับ

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

Public Class Form1

' connection sql
Dim con As New SqlConnection("Data Source=127.0.0.1;Uid=sa;PASSWORD=OnlY@dmln;Database=finger;integrated Security=true")
Dim da As SqlDataAdapter
Dim ds As New DataSet

' connect access
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\finger\finger.mdb")
Dim accda As OleDbDataAdapter
Dim accds As New DataSet

' ส่วนแสดงผลครับ

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'DataGrid เอามาแสดงผลว่า Connect ได้ครับ
'ต้นทาง
da = New SqlDataAdapter("select TOP 100 USERID, CHECKTIME from CHECKINOUT where CHECKTIME BETWEEN CONVERT(DATETIME, '2006-01-01 00:00:00', 102) AND CONVERT(DATETIME, '2006-12-31 00:00:00', 102)", con)
da.Fill(ds, "USERID")
DataGridView1.DataSource = ds.Tables("USERID")

'ปลายทาง
accda = New OleDbDataAdapter("select TOP 100 USERID, CHECKTIME from CHECKINOUT", Conn)
accda.Fill(accds, "USERID")
DataGridView2.DataSource = accds.Tables("USERID")


End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        accda = New OleDbDataAdapter("select TOP 100 CHECKINOUT.USERID, CHECKINOUT.CHECKTIME from CHECKINOUT WHERE (CHECKINOUT.CHECKTIME between #" & DateTimePicker1.Text & "# and #" & DateTimePicker2.Text & "#) ", Conn)
        accda.Fill(accds, "USERID")
        DataGridView2.DataSource = accds.Tables("USERID")


    End Sub

      While valcount <= valcutend
            strOleAdd = "select CHECKINOUT.AUTOID, CHECKINOUT.USERID, CHECKINOUT.CHECKTIME from CHECKINOUT WHERE (CHECKINOUT.AUTOID =" & valcount & ")"
            objCommand = New OleDbCommand(strOleAdd, objConnection)
            'Get a datareader
            objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
            iarray = 0
            ReDim valUSERID(100)
            ReDim valCHECKTIME(100)
            objDataReader.Read()
            valUSERID(iarray) = objDataReader("USERID")
            valCHECKTIME(iarray) = objDataReader("CHECKTIME")
            valCHECKTIMEConvDay = valCHECKTIME(0)
            valCHECKTIMEConvMonth = valCHECKTIME(0)
            valCHECKTIMEConvYear = valCHECKTIME(0)
            valCHECKTIMEConvDay = valCHECKTIMEConvDay.Substring(0, 2)
            valCHECKTIMEConvMonth = valCHECKTIMEConvMonth.Substring(3, 2)
            valCHECKTIMEConvYear = valCHECKTIMEConvYear.Substring(6, 13)
            valCHECKTIMEConvOK = "" & valCHECKTIMEConvMonth & "/" & valCHECKTIMEConvDay & "/" & valCHECKTIMEConvYear & ""
            'MessageBox.Show(valCHECKTIMEConvDay, valCHECKTIMEConvMonth)
            lbUSERID.Text = valUSERID(0)
            lbCHECKTIME.Text = valCHECKTIME(0)
            lbusershow.Text = valcount.ToString
            daSQLAdd = New SqlCommand("INSERT INTO CHECKINOUT (USERID, CHECKTIME, CHECKTYPE, sn) values ('" & valUSERID(0) & "', '" & valCHECKTIMEConvOK & "','" & branch & "', '" & valcount & "')", con)
            daSQLAdd.Connection.Open()
            daSQLAdd.ExecuteNonQuery()
            daSQLAdd.Connection.Close()
            valcount += 1
            valprgInc += 1
            prgbar.Value = (valprgInc / countall) * 100
        End While