dim tableName as string dim strSql as string tableName = "username" strSql = "select * from " & tableName set rs = conn.Execute(strSql)