先用ADO.NET读取数据，然后赋值即可，这个很容易的，
成都创新互联公司主要从事网站制作、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务新河,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
如果你要和某个控件的值做比对，就可以先赋值给控件，然后做比对。。。
例如，你读取数据库中的一条记录，然后绑定到textbox上，和另外一个textbox里面的数字比较大小。。。。
假如b窗体是form2,在a窗体中调用B窗体，直接dim frm as new form2,然后frm.show()就OK
Imports System.Data.OleDb
Public Class Form1
Dim objComm As New OleDbCommand()
Dim adapter As New OleDbDataAdapter(objComm)
Dim tbl As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;")
Dim objComm As New OleDbCommand()
objComm.CommandText = "SELECT * FROM staff" ' 这是一个QUERY STRING 来选取资料的
objComm.Connection = objCon
Dim adapter As New OleDbDataAdapter(objComm) '选取资料后可以用OleDbDataAdapter 把资料存到DATATABLE 里
Dim tbl As New DataTable ' 用来存资料, 等一会可以显示到DATAGRIDVIEW中
Try
objCon.Open() ' 开启 ACCESS CONNECTION
adapter.Fill(tbl) ' 把资料存到DATATABLE 里
DataGridView1.DataSource = tbl '之后 ASSIGN DATAGRIDVIEW 的DATA SOURCE E.G. 用刚刚取来的DATA TABLE
Catch ex As Exception
MsgBox(ex.Message) '有问题ERROR 时 POP UP ERROR MESSAGE BOX
Finally
adapter = Nothing '清理 data adapter object
objComm = Nothing '清理 command object
objCon.Close() '关掉连线
objCon = Nothing '清理 connection object
End Try
End Sub
1、首先打开Visual Studio 2008代码窗口，添加引用。
2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。
3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。
4、如果SQL 数据库就在本机，则用以下代码连接。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。
VB的数据库操作，我们都知道在Where子句中对于字符串类型，用单引号
注意：凡是日期、时间类型，用井号，也就是 #
所以，你的这个用
select * from 表名 where cdate(起始时间) between #" + CDate(txtStart.Text) + "# and #" + CDate(txtOver.Text) + “#“
