mySQL6 = "SELECT [T_Tooling].ThreadLength " & _
                    "FROM [T_Tooling] INNER JOIN [T_ToolTypes] ON [T_Tooling].ToolTypeDesc = [T_ToolTypes].ToolTypeDesc " & _
                    "GROUP BY [T_Tooling].ToolTypeDesc, [T_Tooling].ThreadLength " & _
                    "HAVING ((([T_Tooling].ToolTypeDesc) = " & "'" & "Mandral" & "'" & ") AND (([T_Tooling].ThreadLength) Is Not Null)) " & _
                    "ORDER BY [T_Tooling].ThreadLength"

Dim mySQL6 As String

mySQL6 = "CREATE PROCEDURE '00CreateSP' As " & _
        "SELECT     au_id, au_lname  FROM dbo.authors"

    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset

    ' Open a connection without using a Data Source Name (DSN).
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "driver={SQL Server};" & _
        "server=<MyServerName>;database=pubs"
    cnn.ConnectionTimeout = 30
    cnn.Open

        cnn.Execute mySQL6

    rs.Close
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing

'-------

Exit_btnCreateSToredProced_Click:
    Exit Sub

Err_btnCreateSToredProced_Click:
    MsgBox Err.Description
    Resume Exit_btnCreateSToredProced_Click

End Sub