Data source name not found and no default driver specified

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified




I get the error message above in the function call below:




Function fnGenHomebuyerList(strTempDate As String, strTempLenderFax As String, strTempLO As String) As String
    Dim db As New ADODB.Connection
    Dim recTemp As New ADODB.Recordset
       
    Dim intRecCount As Integer
    Dim strToField As String
    Dim strSubject As String
    Dim strFaxPath As String
    Dim fGoes As Boolean
    Dim strLOFaxDoc As String
    Dim strTempInText As String
    Dim strFaxRaw As String
    Dim strTempFieldName As String
    Dim FBoldSetting As Boolean
    Dim FItalicSetting As Boolean
    Dim FUnderlineSetting As Boolean
    Dim intFontSize As Integer
    Dim intBookmarkCount As Integer
    Dim strHomebuyerInfoLine As String
   
           
    recTemp.CursorLocation = adUseClient







    'ERROR MESSAGE WHEN THIS LINE RUNS
    db.Open "ODBC;DSN=Pipeline;Database=Pipeline"










   
    recTemp.Open "LOFaxSelect '" & strTempDate & "'", db, adOpenKeyset
   
    intRecCount = recTemp.RecordCount
   
    strHomebuyerInfoLine = "Homebuyer's Name=Neighborhood Gold Grant #=Tentative Closing Date" & Chr(10)
   
        If intRecCount > 0 Then
   
            Dim objWord1 As New Word.Application
   
            Do While recTemp.EOF = False
   
                strLOFaxDoc = "P:\Documents\fmLOFax.dot"
               
                If (Nz(recTemp("LenderFax"), "") = strTempLenderFax) And (Nz(recTemp("LO"), "") = strTempLO) Then
                    strHomebuyerInfoLine = strHomebuyerInfoLine & recTemp("HomeBuyer") & "=" & recTemp("entryID") & "=" & recTemp("tcd") & Chr(10)
                    fnAppendComment recTemp("entryID"), "LOFax", "LO fax sent"
                End If
                               
                DoEvents
               
                recTemp.MoveNext
           
            Loop
   
        End If
   
    recTemp.Close
   
    db.Close
   
    Set recTemp = Nothing
    Set db = Nothing
   
    fnGenHomebuyerList = strHomebuyerInfoLine

End Function