VB.net²Ù×÷AccessÎÊÌâ

ÓõÄÊÇ2008дÁËÒ»¶ÎÅжÏÊý¾Ý¿âDbNameÖÐÊÇ·ñÓбíTabNameµÄ³ÌÐò£¬µ«ÊÇÔÚµ÷ÓõÄʱºò³öÏÖÁËÊý¾Ý¿âÃû³Æ²»ÄÜת»»ÎªDoubleÐÍÊý¾ÝµÄÎÊÌ⣬µ«ÊÇÔÚÕâµ±ÖÐÎÒ¸ù±¾Ã»ÓÐÉèÖÃDoubleÐÍÊý¾Ý£¬¸Õ¿ªÊ¼½Ó´¥VB.net£¬²»ÊǺܶ®£¬´ó¼Ò°ïæ°¡£¡£¡ÆäËû²Ù×÷Êý¾Ý¿âµÄʱºòÒ²³öÏÖ¹ýÕâÖÖÎÊÌâ¡£
    Public Function FindTabName(ByVal TabName As String, ByVal DbName As String) As Boolean

        Dim myDs As New DataSet
        Dim myDa As New OleDbDataAdapter
        Dim myCon As New OleDbConnection
        Dim myConString As String
        Dim myCom As New OleDbCommand
        Dim I As Integer
        Dim mytable As String

        FindTabName = False

        Try
            myConString = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source =" + DbName
            myCon.ConnectionString = myConString
            myCon.Open()
            myCom.Connection = myCon
            myCom.CommandText = "select * from " & +DbName
            myDa.SelectCommand = myCom

            myDa