Shared Function GetTable(ByVal SqlString As String) As DataSet Dim ds As New DataSet If con.State = ConnectionState.Closed Then con.Open() Using con Dim da As New SqlClient.SqlDataAdapter(SqlString, con) da.SelectCommand.CommandTimeout = 5000 da.Fill(ds) End Using Return ds
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)