机房收费系统之公共模块代码理解

public function connectstring() as string    rem：对照ODBC数据源（32位）连接到相应的数据库
     
     rem：以connectstring的方式连接到文件dsn中的charge数据库
     connectstring="filedsn=charge.dsn;user=sa;pwd=123"  
     
end function


public function executesql(byval sql as string,msgstring as string) as adodb.recordset
     
     rem:定义数据库连接和数据集连接
     dim cnn as adodb.connection
     dim rst as adodb.recordset
  
     rem:定义字符串分组
     dim stokens() as string
     
     rem:将sql语句进行数组分组
     stokens=spilt(sql)

     rem:实例化数据库连接
     set cnn=new adodb.connection
     
     rem:打开相应的数据库
     cnn.open connectstring

     rem:判断字符串中是否含有指定的内容（按照逻辑的推算，stokens(0)所指insert，delete，update三种语句中的首个字符，也即指他们本身）
     if instr("insert,delete,update",ucase$(stokens(0))) then
           rem:执行查询语句
           cnn.execute sql
           msgstring=stokens(0) & "query successfully"
     else
           rem:实例化数据集对象
           set rst=new adodb.recordset
           rst.open trim$(sql),cnn,adopenkeyset,adlockoptimitic
           msgstring="查询到" & "rst.recordcount" & "记录"
     end if
     

这部分代码是我在开始敲机房时经过好长时间的理解，希望大家能够提出更好的理解，谢谢！