SSMProcFunc с учетной записью Windows. 
Dim cnn1 AS New SqlConnection( _
   «Data Source=(local);» & _
   «Initial Catalog=SSMProcFunc;» & _
   «Integrated Security=SSPI») 
cnn1.Open