Public Sub FillDs(ByVal strSQL As String, ByRef dsData As DataSet)

Public Sub FillDs(ByVal strSQL As String, ByRef dsData As DataSet)
Dim conData As New SqlClient.SqlConnection(strConnectionString)
Try
Dim SqlComm As New SqlClient.SqlCommand(strSQL, conData)
SqlComm.CommandType = CommandType.Text
Dim sqlAdp As New SqlClient.SqlDataAdapter(SqlComm)
If dsData Is Nothing Then
dsData = New DataSet
Else
dsData.Tables.Clear()
End If
sqlAdp.Fill(dsData, "Tabla")
sqlAdp.Dispose()
SqlComm.Dispose()
Catch ex As Exception
Console.Write(ex.ToString)
End Try
If IsNothing(conData) = False AndAlso (conData.State <> ConnectionState.Closed OrElse conData.State <> ConnectionState.Broken) Then
conData.Close()
End If
End Sub