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
        .MoveNext
        Loop
    End With
    Set rst = dbs.OpenRecordset(dbname)
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 5 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 5 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros