Windows Service can anyone tellme why this routine fails?

[majordog]

Private Function AnyEmailsToSend(ByVal command As String) As Boolean
Dim ds As New DataSet
Dim MyConnection As SqlConnection = New SqlConnection(DatabaseKey)
Dim MyDataAdapter As SqlDataAdapter = New SqlDataAdapter(command, MyConnection)
Dim MyDataTable As New DataTable
Dim MyDataRow As DataRow
Dim intNumber As Integer

EventLog1.WriteEntry("Inside AnyEmailsToSend&quot
Try
MyDataAdapter.Fill(ds, "Count&quot
MyDataTable = ds.Tables(0)
MyConnection.Close()
Catch
EventLog1.WriteEntry("Nope&quot
End Try

Try
For Each MyDataRow In MyDataTable.Rows
intNumber = MyDataRow("Number&quot
Next
Catch
EventLog1.WriteEntry("Error occurred in counting mail to send. Number was: '" & intNumber & "' &quot
End Try
'MyConnection.Close()
EventLog1.WriteEntry(" '" & intNumber & "' &quot
If intNumber > 0 Then
AnyEmailsToSend = True
Else
AnyEmailsToSend = False
End If
End Function

 

[majordog]

Sorry I should also mention that the Select statement passed in is correct and does indeed return values and that it fails on the first TRY CATCH.

 

[baddos]

MyConnection.Open() ?

 

[majordog]

The SqlDataAdapter implicitly opens the connection. The database permissions were not correct. Correcting thatsolved the problem. Thanks