vb6,adodb with sql server 2008

hi for i am new to vb6 with sql server 2008. I have managed to create database named : Tuscan77 in project folder with all the necessary tables with primary and foreign keys in tables. I have done the same project in vb6 with adodb with ms access and i have finished it. But now based on my boss orders i have to connect vb6 with adodb with sql server 2008.

Now below is my code in mdi parent form in vb6 which i used to connect to database in access.:

Dim i As Integer
       Dim AccessConnect As String
              Dim dBOOL As Boolean
       Dim dMstr As String
       If (Left(App.Path, 1) = "\") Then
            dMstr = Dir(App.Path & "tuscanDB.mdb")
       Else
            dMstr = Dir(App.Path & "\tuscanDB.mdb")
       End If
       dBOOL = IIf(dMstr = "", False, True)
       If (dBOOL) Then
           AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _"Dbq=tuscanDB.mdb;" & _"DefaultDir=" & App.Path & ";" & _"Uid=Admin;Pwd=;"

If (adoDatabase.State <> 0) Then
                adoDatabase.Close
            End If
           adoDatabase.ConnectionString = AccessConnect
           adoDatabase.Open
        Else
            Dim mPath As String
            CommonDialog1.CancelError = True
            CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNPathMustExist + cdlOFNFileMustExist
            ' Set filters
            CommonDialog1.Filter = "All Files (*.*)|*.*|RTF (*.rtf)|*.rtf|Text Files (*.txt)|*.txt"

            ' Display the Save dialog box
            CommonDialog1.FileName = ""
            CommonDialog1.ShowOpen
            dMstr = Dir(CommonDialog1.FileName)
            mPath = Left(CommonDialog1.FileName, InStr(mPath, dMstr) - 2)

            If (CommonDialog1.CancelError = False) Then
                AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _"Dbq=" & dMstr & ";" & _"DefaultDir=" & mPath & ";" & _"Uid=Admin;Pwd=;"

                '---------------------------
                ' Connection Object Methods
                '---------------------------

                adoDatabase.ConnectionString = AccessConnect
                adoDatabase.Open
            End If
        End If
        }

where adoDatabase is name of my connection in vb6 with adodb with ms access.

Now how i connect vb6,adodb with sql server 2008?

Now my sql server 2008 details:

Server type: Database Engine

Server name:  NPD-4\SQLEXPRESS

Authentication: Windows authentication

User name: NPD-4\TUSCANO

password:(it is left blank or not necessary)

Database name: Tuscan77

How to i connect my Database named Tuscan77 in vb6 and adodb.? Can anyone help me please.Any help or guidance would be greatly appreciated.