想把查询做成函数(在线等)!

我想通过传参数a作为查询条件,在class_info表中查询class_name=a 的记录,得到class_id值,做为函数的返回值,我写了函数代码如下:
Public Function chang(a As String) As String
Dim sql1 As String
Dim Cnn1 As New ADODB.Connection       'ADO连接
Dim Rs1 As New ADODB.Recordset          'ADO记录集
Dim t As String
 
   Rs1.CursorType = adOpenDynamic
   Rs1.CursorLocation = adUseClient
   Rs1.LockType = adLockOptimistic
   Cnn1.CursorLocation = adUseClient
   
   '连接字符串
   Cnn1.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Pwd=;Data Source=XFTIAN"
   Cnn1.Open Cnn1.ConnectionString
   Cnn1.DefaultDatabase = "deptMIS"    '设置要连接数据库名称
   
   sql1 = "select class_id   from class_info where class_name='" & a & "' "
   Rs1.Open sql1, Cnn1, adOpenKeyset, adLockOptimistic
   
   t = Rs1.Fields("class_id")   chang(a) = t
End Function
请各位高手看看有什么问题.
如何才能实现我想要的功能?