Figured it out, this is my code:
Code:Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=” & path & “;” & “Extended Properties=dBase IV”) dBaseConnection.Open() 'New table Dim SQLCreateCommand As String 'SQLCreateCommand = “CREATE TABLE NewTable ” & “(subdir TEXT(50))” Dim NewString As String = dt.ToString SQLCreateCommand = "SELECT * INTO NewTable From " & TableName Dim dBaseCommand As New System.Data.OleDb.OleDbCommand(SQLCreateCommand, dBaseConnection) dBaseCommand.ExecuteNonQuery() dBaseConnection.Close()




Reply With Quote
