How do i write to cells in a function?

I can do it from a Macro but aparently not from a function. below I have included some code I was using to test this. any ideas what I can do to get it to work. This would be very useful to me in many aspects.

Public Function SQLLabor3(Column1 As String)

    Dim conn                    As Object
    Dim recS                    As Object
    Dim strQuery                As String
    Dim i                       As Long
    Dim test                    As String
    
    
    Set conn = CreateObject("ADODB.Connection")
    Set recS = CreateObject("ADODB.Recordset")
    
    'Connect to the data base
     Range("C1").Select
    ActiveCell.FormulaR1C1 = "Feb"
    
    
    
    With conn
        .Provider = "sqloledb"
        .ConnectionString = "Data Source=CRV43;Initial Catalog=M2MDATA01;User ID=ID;Password=Password;"
        .Open
    End With
    
    'Get data from Database

    strQuery = "Select " & "[" & Column1 & "]" & " From labor"
    
    recS.Open strQuery, conn
    
    i = 2
    
    Do Until recS.EOF
       For Each fld In recS.Fields
       MsgBox fld.Value
       test = fld.Value
       Range(“B1”) = fld.Value
       Next fld
       recS.MoveNext
    Loop
        
    
    SQLLabor3 = recS.GetRows()
    
    'Close all connections
    
    recS.Close
    conn.Close
    Set recS = Nothing
    Set conn = Nothing
    
End Function

OK I had a feeling I was going to have to call a macro. but I wanted to check before I did that. Thanks.

Not sure if you've seen my edit, maybe it would help.

I was going to try to call a sub from the function. What do you think?

I've never tried that. Is that possible? :D

nope cant do it

We will soon see.

Cool I was unaware of that can you give me an example?

You can call a sub from a udf, but the same restrictions still apply -- the sub cannot alter the value of another cell like you are asking.

2 basic ideas I see for something like this:

1) Can you separate the logic for result A and result B? If you can separate the logic for the two results, then you put a function or code a separate udf to obtain result B and put that in cell B rather than having cell A/code A try to do both results.
2) If result A and result B are too closely interconnected to be separated, then you can write your udf as an array function and have it return both values. This looks like:

function myarrayfn(arglist) as variant
dim temp(2) 'this is an array that will be used to store the two results while the function is running
'***code to calculate result A and result B and store them in temp()
myarrayfn=temp
end function

As with any of the built in array functions, the function has to be entered with cntrl-shift-enter, and the results are returned as an array (so typically they end up in adjacent cells). You can conceivably nest the udf inside the INDEX() function to return A or B, if desired.