Handy Code for Executing SQL Queries - Gives Table

Public Function ExecuteQuery(ByVal strQuery As String, _
                        Optional ByRef sErrMsg As String = "")
                        As Data.DataSet 
Dim oDs As New DataSet
Try
Dim strConn As String = GetConnectionString()
Dim cConn As SqlConnection = New SqlConnection(strConn)
cConn.Open()

If (cConn.State = ConnectionState.Open) Then
           Dim oDa As New SqlDataAdapter(strQuery, cConn)
           oDa.Fill(oDs)
           Return oDs
End If
If (cConn.State = ConnectionState.Open) Then cConn.Close()
Catch ex As Exception
            sErrMsg = ex.Message
        End Try
Return oDs
End Function