Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String

Sub Main()
    Dim cat As Integer

    ConnectDB
    cat = getCategorie("asd4")
End Sub

Function ConnectDB()
    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
    "SERVER=10.0.2.2;" & _
    "DATABASE=gestionResidences;" & _
    "USER=root;" & _
    "PASSWORD=123;" & _
    "Option=3"
End Function

Function esc(txt As String)
    esc = Trim(Replace(txt, "'", "\'"))
End Function

Function insertCategorie(catName As String)
    Set rs = New ADODB.Recordset

    strSQL = "INSERT INTO CategorieRecette" & _
                "(nom_CategorieRecette, id_GroupeResidence) VALUES ('" & catName & "', 1);"

    rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
End Function

Function getCategorie(catName As String) As Integer
    Dim retour As Integer
    Dim randomArray As Variant

    Set rs = New ADODB.Recordset

    strSQL = "SELECT id_CategorieRecette FROM CategorieRecette " & _
                "WHERE id_GroupeResidence = 1 AND nom_CategorieRecette = '" & catName & "'"

    rs.Open strSQL, oConn, adOpenForwardOnly, adLockReadOnly, adCmdText

    If (rs.PageCount <= 0 And rs.Fields.Count <= 0) Then
        insertCategorie (catName)
        retour = getCategorie(catName)
    Else
        Set monField = rs.Fields("id_CategorieRecette")
        retour = monField.Value
    End If

    Debug.Print monField.Value

    getCategorie = retour
End Function

Function findCategories()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
         ws.Range("A1") = ws.Name

         If ws.Name Like "Feuil*" Then
            MsgBox (ws.Range("B1").Value)
        End If

        On Error Resume Next
    Next ws
End Function