你说这么一大篇全是业务逻辑，没说明你遇到的技术性问题在哪
成都创新互联于2013年创立，先为王屋等服务建站，王屋等地企业，进行企业商务咨询服务。为王屋企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
点虐 自带的config文件来配置连接字符串，比ini好N倍，如果你非要用ini那么自己解决问题
检测是否能连接用Connection.Open加try catch就可以
给你写个例子，不明白，再问！！
'引入OLEDB命令空间
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个OLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con,这个需要你理解下
cmd.Connection = con
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""
'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
t2.Text = dr(0)
End If
'完成后关闭dr.con等释放资源
dr.Close()
con.Close()
End Sub
End Class
1，使用ADO connection对象
首先，要建立ADO引用，定义connection这个类，然后实例化对象。
代码完成如下：
span style="font-size:18px;"Dim objCn As New Connection, objRs As New Recordset
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" "Data Source=" App.Path "\实例01.mdb"
objCn.Open
/span
2，使用ODBC数据源
首先，打开电脑上的ODBC数据源，建立关系。
步骤如下：
1），打开电脑上的ODBC数据源
如下图所示：
2）点击添加
3）命名
4）和数据库源建立关系
5）用代码实现连接
span style="font-size:18px;"
dim objCn As Connection
Set objCn = New Connection
objCn.Open "DSN=实例2DSN"
/span
3、ADO Data 控件创建连接
1）右击data控件，选择ADODC属性
2）从三种连接资源中选择一种。
使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可
使用ODBC数据源连接，单击新建
选择用户数据库，之后的操作跟2中步骤一样。
使用连接字符串：单击生成
测试连接
4、使用数据环境设计器创建数据库连接
添加引用
右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致
Dim
sqlConnection1
As
SqlClient.SqlConnection
Dim
strConnect
As
String=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”
sqlConnection1=New
System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open
‘打开数据库
sqlConnection1.close
‘关闭连接，释放资源
1)连接Sql
Server数据库
Dim
odbcDbConnetion1
As
Microsoft.Data.OdbcConnection
Dim
strConnect
As
Sting=”Driver={SQL
Server};Server=服务器名;Uid=sa;pwd=;Database=
数据库名;”
odbcDbConnetion1=New
Microsoft.Data.OdbcConnection(strConnect)
