PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimsAsStringDimrsAsNewADODB.RecordsetDimtelephoneAsStringDimtxtsqlAsStringtelephone=Trim(Text1.Text)'*******************************************************************************************s="Driver={SQLServer};Datab