Dim cnn1 AS New SqlConnection( _
   «Data Source=(local);» & _
   «Initial Catalog=SSMProcFunc;» & _
   «User ID = SSMProcFuncU1; « & _
   «Password= SSMProcFunc»)
cnn1.Open