Visual Basic - PUBLICACION: Evaluador Matemático

El presente código es el principio de un Evaluador de Expresiones Matématicas desarrollado por iniciativa propia.
Para cualquier comentario o preguntas puedes comunicarte a mi e-mail: [email protected] con gusto atenderé tu solicitud:
 
1.- Crea un formulario (Form1), con una caja de texto (Text1), con un botón (Command1). Luego en el menú Proyecto -> Referencias -> Seleccionas:
        1.a.- Microsoft Active Data Objects 2.5 Library. (puede ser la 2.0 ó 2.1)
        1.b.- Microsft ADO. Ext. 2.5 for DLL and security. (puede ser la 2.0 ó 2.1)
 
2.- Colocas este código:
'Bloque de declaraciones generales
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
 
Private Sub Form_Load()
    On Error GoTo ErrorCrear:
    Dim cat As New ADOX.Catalog
    Dim tdf As New ADOX.Table
    Dim col As New ADOX.Column
    If CBool(Len(Dir(App.Path + "\bd1.mdb"))) Then Kill (App.Path + "\bd1.mdb")
    cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\bd1.mdb")
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + _
                                        "\bd1.mdb;Persist Security Info=False"
    cnn.Open
    cnn.Execute "create table [TABLE1] ([UNO] SmallInt)"
    cnn.Execute "insert into [TABLE1] Values (1)"
    Exit Sub
 
ErrorCrear:
    MsgBox "Error: " + CStr(Er