'lay du lieu tu csdl len dataset

Public Function layDl(ByVal sql As String) As DataSet

Dim ds As New DataSet

Try

moketnoi()

dap = New SqlDataAdapter(sql, con)

dap.Fill(ds)

Catch ex As Exception

Throw New Exception(ex.Message)

Finally

dongketnoi()

End Try

Return ds

End Function