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()