troubleshooting Question

Convert code from VB 6 to VB 2005

Avatar of esps
esps asked on
Visual Basic Classic
5 Comments1 Solution203 ViewsLast Modified:
I am finally moving ahead and need a kickstart please.
Please help me to convert code like the following piece of code from VB 6 to VB 2005.

Dim dbs As Database
    Dim rst As Recordset
    Dim doorlist As Recordset
    Dim temp_clean As Recordset 'tempory table to store selections before update
    Set dbs = OpenDatabase("jp_imgdb.mdb")
    If Spec2Single.Value = True Then
        Set doorlist = dbs.OpenRecordset("list_single")
    End If
    If Spec2Double.Value = True Then
        Set doorlist = dbs.OpenRecordset("list_double")
    End If
    With doorlist
        Do While Not .EOF
            If !Description = Doortypedis Then
                dbname = !TablesofDoors
                Exit Do
            End If
    End With
    Set rst = dbs.OpenRecordset(dbname)

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 5 Comments.
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>


Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 5 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004