Using Find Of ADO

Hello Expert,



I have attempted for two days to following codes. I am still unable to get the way out. Would you give me a help?



The field fund_cd is a combo box of transaction table to look up reference table called fund_type. Here is the structure of fund_type:



fund_cd text 3

fund_desc text 50

fund_currency text 5



My needs are to pull both values of fund_cd and fund_currency to transaction table, so 1 combo box cannot meet my needs. As such, I write following codes to base on selected fund_cd to find appropriate value of fund_currency in fund_type.



From the code below, I meet the run-time error ‘3001’ and I am not sure can I finally get fund_currency using method of GetString.



Dim strSQL As String

Dim strccy As String



Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset



rst.ActiveConnection = CurrentProject.Connection

rst.CursorType = adOpenStatic

rst.Open "Select * from fund_type"



strSQL = "fund_cd = " & Me.fund_cd

rst.MoveFirst



rst.Find strSQL, 0, adSearchForward



strccy = rst.GetString(adClipString)



Thanks very much!

martinaccess