Trying to Set a SQL Server Database to Offline through VB.NET

Friends,

I'm having a bit of trouble trying to set a database to offline through VB.net

If I simply type the lines:

 ALTER DATABASE  [IRLRV]
SET OFFLINE

through Query Analyser, it works great.  If however, I write it in my code such as the case in the attahed code snippet, i get a timeout error?  What gives?

It should be noted that if I try to run the same line from Qry Analyser while my program is running, it will sit there and think about it until I have closed my program.  After the program exits, it will then run in qry analyser.

 What syntax change to I need to make?

Thanks in advance!

Regards,
Eric

dsnLocal = "Data Source=""" & LocalWorkstation & """;Initial Catalog=""master"";User Id=""user"";password=""password"""
   
Private Sub SetDatabaseToOffline(ByVal NewDBName As String)
        Dim con As New SqlClient.SqlConnection(dsnLocal)
        Try
            Dim data As New DataSet
            data = New DataSet
            con = New SqlClient.SqlConnection(dsnLocal)
            con.Open()
 
            Dim c As New SqlClient.SqlCommand("ALTER DATABASE [" & NewDBName & "]" & vbCrLf _
            & "SET OFFLINE", con)
            c.ExecuteNonQuery()
 
            con.Close()
            con = Nothing
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        Finally
            If Not con Is Nothing AndAlso con.State <> ConnectionState.Closed Then
                con.Close()
                con = Nothing
            End If
        End Try
    End Sub

Select allOpen in new window