主题：[求助]二个不同的数据库如何做到多表查询

Dim cmd As new SQLCommand
cmd.数据源 = "kis"  ‘这个是SQL的数据库

If e.Form.Controls("Textfi").text > "" Then cmd.CommandText &= " where " & e.Form.Controls("Textfi").text

Dim sdt As DataTable = cmd.ExecuteReader

Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.DataSource = cmd.ExecuteReader

那换个方法，但以下两个请教一下老师，应该怎么做？

1、先判断数据库是否存在，如果不存在，则新增数据库（BOM）

2、先判断数据表《BOM对照表》是否存在，如果不存在，根据Access增加数据表，

If exists (Se lect * from sys.databases where name = 'OA2017') then
    drop database [OA2017]
    MessageBox.Show("数据表存在")
Else
    MessageBox.Show("数据表不存在")   
    CREATE DATABASE "OA2017"
End If

用Foxtable应该怎么写这个代码，这个昨天我自己也百度过，但不知用Foxtable来写。

老师，就是不会转换为Foxtable来写，可以帮忙改一下吗？

数据源怎么指定？

Dim cmd As New SQLCommand
cmd.CommandText = "iif(exists (Se lect * from sys.databases where name = 'OA2017'),drop database [OA2017],CREATE DATABASE 'OA2017')"
cmd.ExecuteScalar