SQL: "General network error"

[deena]

The following code generates an error on the Fill method, the first time it
executes and runs successfully thereafter:

The connection is created before this code is executed

daClearance.SelectCommand = New SqlCommand("ProcGetBookingsByVisitorIDDate",
cnnClearance)

daClearance.SelectCommand.CommandType = CommandType.StoredProcedure

Dim paramVisitorIDNo As New SqlParameter("@strVisitorIDNo",
SqlDbType.VarChar, 13)

Dim paramVisitEndDate As New SqlParameter("@dteVisitEndDate",

SqlDbType.DateTime)

daClearance.SelectCommand.Parameters.Add(paramVisitorIDNo)

daClearance.SelectCommand.Parameters.Add(paramVisitEndDate)

paramVisitorIDNo.Value = strVisitorIDNo

paramVisitEndDate.Value = dteVisitEndDate

cnnClearance.Open()

daClearance.Fill(dsDetails)

daClearance.SelectCommand = New SqlCommand("ProcGetBookingsByVisitorIDDate",
cnnClearance)

daClearance.SelectCommand.CommandType = CommandType.StoredProcedure

Dim paramVisitorIDNo As New SqlParameter("@strVisitorIDNo",
SqlDbType.VarChar, 13)

Dim paramVisitEndDate As New SqlParameter("@dteVisitEndDate",

SqlDbType.DateTime)

daClearance.SelectCommand.Parameters.Add(paramVisitorIDNo)

daClearance.SelectCommand.Parameters.Add(paramVisitEndDate)

paramVisitorIDNo.Value = strVisitorIDNo

paramVisitEndDate.Value = dteVisitEndDate

cnnClearance.Open()

daClearance.Fill(dsDetails)