'SQLServerの場合
Public Function myDataTable(ByVal sSQL As String) As DataTable

    Dim con As New System.Data.SqlClient.SqlConnection()    'OracleClientでもいい
    Dim cmd As New System.Data.SqlClient.SqlCommand         'OracleClientでもいい
    Dim dt As New DataTable
    Dim dtInfo As New DataTable
    Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader()    'OracleClientでもいい
    Dim row As DataRow

    con.ConnectionString = Me.ConnectString		'前もって接続文字列を設定しておく
    con.Open()
    cmd.Connection = con
    cmd.CommandType = Data.CommandType.Text
    cmd.CommandText = sSQL

    'カラム情報を設定
    dtInfo = reader.GetSchemaTable
    For Each col In dtInfo.Rows
       dt.Columns.Add(col("ColumnName").ToString, System.Type.GetType(col("DataType").ToString))
    Next

    'データ抽出
    While reader.Read()
        row = dt.NewRow
        For i As Integer = 0 To dt.Columns.Count - 1
            row(i) = reader(i)
        Next
        dt.Rows.Add(row)
    End While
    reader.Close()
    con.Close()

    Return dt

End Function