Sub BtnUp_Click(sender As Object, e As EventArgs)

 
  inputFile.PostedFile.SaveAs( "percorsosulserver" & "import.txt" )
  lblResult.Text = "File caricato correttamente!"
    
   Dim TextConnectionString As String 
        TextConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
              "Data Source=" & "percorsofisico" & ";" & _ 
              "Extended Properties=""Text;HDR=NO;""" 
        Dim TextConn As New System.Data.OleDb.OleDbConnection(TextConnectionString) 
        TextConn.Open() 


        Dim da As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM import.txt", TextConn) 
    
        Dim ds As DataSet = New DataSet("File") 
        da.Fill(ds, "TestFile") 

        DataGrid.DataSource = ds 
        DataGrid.DataBind() 

End Sub

Sub BtnUp_Click(sender As Object, e As EventArgs)

  inputFile.PostedFile.SaveAs( "percorsofisico" & "import.txt" )
  lblResult.Text = "File caricato correttamente!"


Dim Connessione As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=percorsofisico\database.mdb") 

  

   Dim TextConnectionString As String 
   
   
        TextConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
              "Data Source=" & "percorsofisico" & ";" & _ 
              "Extended Properties=""Text;HDR=YES;""" 
        
              
    Dim TextConn As New System.Data.OleDb.OleDbConnection(TextConnectionString) 
          
    TextConn.Open()
    Connessione.Open
        
        Dim da As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM import.txt", TextConn)
    Dim objDataAdapter As New OleDbDataAdapter("SELECT * FROM TblInt2", Connessione) 
    
    Dim objDataSet As New DataSet()
    
    objDataAdapter.Fill(objDataSet)
    
    da.Fill (objDataSet)
        objDataAdapter.Update(objDataSet)
    
        TextConn.Close
    Connessione.Close
    
    
      MyDataGrid.DataSource = objDataSet
        MyDataGrid.DataBind()