Dim obj As SQLDMO.StoredProcedure
                    For Each obj In db.StoredProcedures
                        If obj.Name = Name Then
                            Dim cnn As New SqlClient.SqlConnection( _
                              GetConnectString(, True, db.Name))
                            Dim cmd As New SqlClient.SqlCommand(obj.Name, cnn)
                            cmd.CommandType = CommandType.StoredProcedure
                        End If
                    Next