No veo en que parte de tu consultas se guarde en el dataset, o haria algo asi:
Código VB:
Ver originalSQL_Sicoss = New SqlClient.SqlConnection(Session("ConnectionNET"))
Dim SQLA_Documento As New SqlClient.SqlDataAdapter("Select * From Documento Where Documento_ID = @DocID", SQL_Sicoss)
Dim dbDoc As New DataSet
SQLA_Documento.Fill(dbDoc,"MisDatos")
DOCID = al id del documento a editar.
If DocID < 0 Then
textarea.Content = (" <br /> " _
& " <br /> " _
& " <br /> " _
& " <div style=""text-align: center""><span style=""font-weight: bold"" class=""style2"">*** Elabore su Documento aquí ***</span></div> ")
txt_Titulo.Visible = True
txt_descripcion.Visible = True
Else
If dbDoc.Tables("MisDatos").Rows.Count > 0 Then
textarea.Content = dbDoc.Tables("MisDatos").Rows(0)("MiId") 'Suponiendo que la consulta solo traiga una fila, aqui se accede a la primera, con el indice en cero, tambien en la consulta debera existir la columna MiId o la del valor que quieres poner en el TextBox
dbDoc.Tables.Remove("MisDatos") 'Borramos la tabla del DataSet para evitar comportamientos raros
End IF
txt_Titulo.Visible = False
txt_descripcion.Visible = False
End If