Click here to Skip to main content
11,933,253 members (63,776 online)
Rate this:
Please Sign up or sign in to vote.
See more: VB8.0 VB
Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not openconn() Then
            MsgBox("Koneksi gagal...!", MsgBoxStyle.Critical, "Access Failed")
            Return Nothing
            Exit Function
        End If
        Cmd = New OleDb.OleDbCommand(Query, Cn)
        Da = New OleDb.OleDbDataAdapter
        Da.SelectCommand = Cmd
        Ds = New Data.DataSet
        Da.Fill (Ds)
        Dt = Ds.Tables(0)
        Return Dt
        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing
    End Function

Note : Da.fill (Ds)
Posted 24-Sep-11 5:36am
Edited 24-Sep-11 6:25am
Mehdi Gholam292.8K
Mehdi Gholam 24-Sep-11 11:26am
Obviously from the error the table does not exist, check your connection and table names.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web01 | 2.8.151126.1 | Last Updated 24 Sep 2011
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100