Non sono sicuro, ma penso si faccia così:

codice:
Dim objConn as New SqlConnection(strConn)