Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        connetionString = ("server=192.9.200.82;database=eKalyan;user id=invite;password=invite")
 
 
 
 
 
 
 
 
        MessageBox.Show("connection established")
        sql = ("select newuniqueid,newteh_code,newpcate_cd,newplano, pen_nm,rel_cd,pen_fnm,ccate_cd,pan_code,pvillage,ppo_cd,spo_cd,start_qtr,last_qtr,bundle_typ,bundle_no,mo_srno,pen_amt,pen_comm,status,operatorcode from ekalyan.welpen")
 
        cnn = New SqlConnection(connetionString)
        Try
            cnn.Open()
            cmdd = New SqlCommand(sql, cnn)
            cmdd.ExecuteNonQuery()
 
            cnn.Close()
            MsgBox(" ExecuteNonQuery in SqlCommand executed !!")
 
        Catch ex As Exception
            MsgBox("cannot open the connection")
        End Try
 
        'Dim objdataadapter1 As New SqlDataAdapter("select Teh_code,Pcate_Cd,Wtng_No,Applicationdate,Pen_Nm,Rel_Cd1,Pen_Fnm,pan_code,Po_Cd,disabilitypercentage,Ccate_Cd,IndiviualsIncome,Village from ekalyan.WtngN", objconnection)
 
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database1.mdb")
            cn.Open()
 
 
            str = "insert into Table1(newuniqueid,newteh_code,newpcate_cd,newplano, pen_nm,rel_cd,pen_fnm,ccate_cd,pan_code,pvillage,ppo_cd,spo_cd,start_qtr,last_qtr,bundle_typ,bundle_no,mo_srno,pen_amt,pen_comm,status,operatorcode) values (@newuniqueid,@newteh_code,@newpcate_cd,@newplano, @pen_nm,@rel_cd,@pen_fnm,@ccate_cd,@pan_code,@pvillage,@ppo_cd,@spo_cd,@start_qtr,@last_qtr,@bundle_typ,@bundle_no,@mo_srno,@pen_amt,@pen_comm,@status,@operatorcode)IN  'C:\Table1.mdb'"
            cmd = New OleDbCommand(str, cn)
            icount = cmd.ExecuteNonQuery
            cn = Nothing
            MessageBox.Show(icount)
 
        Catch
        End Try
        cn.Close()
    End Sub
End Class

Public Sub ExportTableData(ByVal ConnectionStr As String, ByVal TableName As String, _
  ByRef oView As DataView, _
  ByVal SelectSQL As String, ByVal WhereSQL As String)
  '
  ' Export Access table to data view
  Dim strSQL As String
  Dim oRS As DataSet
  Dim oConnOleDb As OleDbConnection
  Dim oCmdOleDb As OleDbCommand
  Dim oDAOleDb As OleDbDataAdapter
 
  Try
    strSQL = ""
    oCmdOleDb = Nothing
    oDAOleDb = Nothing
    oConnOleDb = New OleDbConnection(ConnectionStr)
    oCmdOleDb = oConnOleDb.CreateCommand()
    If SelectSQL.Length = 0 Then
      strSQL = "SELECT * FROM " & TableName
    Else
      strSQL = "SELECT " & SelectSQL & " FROM " & TableName
    End If
    If WhereSQL.Length > 0 Then
      strSQL = strSQL & " WHERE " & WhereSQL
    End If
    ' Execute
    oCmdOleDb.CommandText = strSQL
    oDAOleDb = New OleDbDataAdapter(oCmdOleDb)
    oRS = New DataSet
    oDAOleDb.Fill(oRS, TableName)
    oView = New DataView(oRS.Tables(0))
    oConnOleDb.Close()
    oConnOleDb = Nothing
    oDAOleDb = Nothing
    oRS = Nothing
    oCmdOleDb = Nothing
  Catch ex As Exception
 
  End Try
 
End Sub

Public Sub ImportTableData(ByVal ConnectionStr As String, ByVal TableName As String, _
  ByRef oImportView As DataView, _
  ByVal SelectSQL As String, ByVal WhereSQL As String)
  '
  ' Import table from data view
  Dim strSQL As String
  Dim oConn As SqlConnection
  Dim oCmd As SqlCommand
  Dim oDA As SqlDataAdapter
  Dim oRS As DataSet
  Dim oView As DataView
 
  Try
    strSQL = ""
    oConn = New SqlConnection(ConnectionStr)
    oConn.Open()
    oCmd = Nothing
    oDA = Nothing
    oCmd = oConn.CreateCommand()
    If SelectSQL.Length = 0 Then
      strSQL = "SELECT * FROM " & TableName
    Else
      strSQL = "SELECT " & SelectSQL & " FROM " & TableName
    End If
    If WhereSQL.Length > 0 Then
      strSQL = strSQL & " WHERE " & WhereSQL
    End If
    ' Execute
    oCmd.CommandText = strSQL
    oDA = New SqlDataAdapter(oCmd)
    oRS = New DataSet
    oDA.Fill(oRS, TableName)
 
    oView = New DataView(oRS.Tables(0))
    ' Set rowstates so that rows are inserted
    oView.Table.Merge(oImportView.ToTable, True, MissingSchemaAction.Ignore)
    ' The trick is to use CommandBuilder to create INSERT statement "automatically"
    Dim oCmdBuilder As SqlCommandBuilder
    oCmdBuilder = New SqlCommandBuilder(oDA)
    ' Finally call update to commit changes to database table
    oDA.Update(oView.Table)
 
    oConn.Close()
    oConn = Nothing
    oDA = Nothing
    oRS = Nothing
    oCmd = Nothing
  Catch ex As Exception
 
  End Try
 
End Sub

Dim oView As DataView
ExportTableData(SourceConnectionString, SourceTableName, oView, "", "")
ImportTableData(TargetConnectionString, TargetTableName, oView, "", "")

Dim oView As DataView
ExportTableData(SourceConnectionString, SourceTableName, oView, "", "")
ImportTableData(TargetConnectionString, TargetTableName, oView, "", "")

Dim oView As DataView
ExportTableData(SourceConnectionString, SourceTableName, oView, "", "")
ImportTableData(TargetConnectionString, TargetTableName, oView, "", "")