Datasets VB 2005

hola

ya he instalado Visual Estudio 2005 y he convertido mi aplicación, pero en
un dataset que me funciona OK en 2003 ahora tengo lo siguiente

Public Function CreateDataSet(ByVal vValor As String) As DataSet

Dim dtsContratos As DataSet

Dim IsConnecting As Boolean = True

While IsConnecting

Try

Dim scmd As New SqlCommand("SGI_ContratosCabeza", Cnn)

Dim sdaContrato As New SqlDataAdapter(scmd)

Dim ParContrato As New SqlParameter

With ParContrato

.ParameterName = "@NoContrato"

.SqlDbType = SqlDbType.NVarChar

.Value = vValor

End With

With scmd

.Parameters.Add(ParContrato)

.CommandType = CommandType.StoredProcedure

End With

dtsContratos = New DataSet

sdaContrato.Fill(dtsContratos, "SGI_ContratosCabeza")

sdaEntidad = New SqlDataAdapter("SELECT * From Datos_Entidad", Cnn)

Me.sdaEntidad.Fill(dtsContratos, "Datos_Entidad")

IsConnecting = False

DidPreviouslyConnect = True

Catch expSQL As SqlException

MsgBox(expSQL.ToString, MsgBoxStyle.Critical)

End Try

End While

RaiseEvent ConnectionCompleted(True)

Return dtsContratos

End Function

tiene una advertencia y dice textualmente "Variable dtsContratos is used
before it has been assigned a value. A null reference exception could result
at runtime.

Cuando abro el report en 2005 está vacío.



Que cambió, pueden ayudarme con algo ?

Gracias