private sub geshu(xx as integer)dim i as integerdim conn as adodb.connectiondim workstring as stringdim sqlcommand as stringdim rs as adodb.recordsetset conn = new adodb.connectionworkstring = "p...
public sub connection()dim cn as new adodb.connection dim rs as new adodb.recordset dim sqlstr as stringcn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=test.mdb;pers**t securi...