Option Explicit
'--------------------------------------------------------
'--------------------------------------------------------
Public Const odbc_dba As String = "EVO"
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
'-------------------------------------------------------
Public Function sku_desc(the_sku As String) As String Dim var_sql As String
conn.CursorLocation = adUseClient
conn.Open "provider=MSDASQL;dsn=" & odbc_dba
var_sql = "SELECT BKIC_PROD_DESC FROM BKICMSTR WHERE BKIC_PROD_CODE = '" & the_sku & "'"
rs.Open var_sql, conn, adOpenStatic
sku_desc = Trim(rs("BKIC_PROD_DESC"))
rs.Close
conn.Close
End Function Public Sub test_my_function() Sheets("Sheet1").Range("A1").Value = sku_desc("MY SKU ID")
End Sub
Kelloggs