Dim oleConnect As New OleDb.OleDbConnection
        Dim oleCommanda As New OleDb.OleDbCommand

            oleConnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & ";Extended Properties=dBASE IV;User ID=Admin;Password="
            oleCommanda.Connection = oleConnect
            oleCommanda.CommandType = CommandType.Text
            oleCommanda.CommandText = "CREATE TABLE pro (id NUMERIC, sum CHARACTER(13))"
            oleConnect.Open()
            oleCommanda.ExecuteNonQuery()
            oleConnect.Close()