这样的代码怎样写？

Question

我想把保存数据那一部份代码写在DLL里，这如何写？               
Set RS = New ADODB.Recordset
RS.CursorType = adOpenKeyset
RS.LockType = adLockReadOnly
RS.Open "select * from tablename ", con
rs.addnew
rs("name")=trim(name.text)
rs("age")=trim(age.text)
rs.update
rs.close如：我想把上述这些代码放在DLL里，让他在DLL里完成数据录入功能，
当然，可以把TextBox时的数据一个一个传递到DLL里，然后录入。
但如果数据很多，很多个TextBox，那不会是一个一个的写代码传问递过去吧，
有没有简单一点的方法，用很简短的代码一次全部传递过去？
或有其他更好完成该功能的办法？

Answer 1

在调用dll的这个方法时候，你可以把对应的text控件内容传入该函数Public Function SaveData(ByVal sName As stirng, ByVal sAge As String)
Dim rs As ADODB.Recordset
Dim con As ADODB.Connection
con.ConnectionString = "数据库连接字符串"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
rs.Open "select * from tablename ", con
rs.addnew
rs("name") = Trim(sName)
rs("age") = Trim(sAge)
rs.Update
rs.CloseEnd Function

Answer 2

楼上的，如果有100个TextBox，那你不是要写100个参数？

Answer 3

没有其他办法，除非用素组
Public Function SaveData(ByVal sName() As stirng)
Dim rs As ADODB.Recordset
Dim con As ADODB.Connection
con.ConnectionString = "数据库连接字符串"
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
rs.Open "select * from tablename ", con
rs.addnew
rs("name") = Trim(sName(0))
rs("age") = Trim(sName(1))
rs.Update
rs.CloseEnd Function