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