Dim cnA As ADOConnection=New ADOConnection
Dim cmA As ADOCommand=New ADOCommand
----------------------------------
VB不太懂,是不是要用
Dim cnA As SqlConnection =New SqlConnection 
Dim cmA As SqlCommand=New SqlCommand