如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！
创新互联公司是一家集网站建设,富平企业网站建设,富平品牌网站建设,网站定制,富平网站建设报价,网络营销,网络优化,富平网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
另外
.NET Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。
比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：
'首先导入命名空间
Imports System.Data
Imports System.Data.OleDb
'然后在某一个事件处理程序中写：
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库.accdb;Jet OLEDB:Database Password=MyDbPassword")
Dim command As New OleDbCommand("Select * From 数据表", conn)
conn.Open() '打开数据库连接
Dim reader As OleDbDataReader = command.ExecuteReader() '执行SQL语句，返回OleDbDataReader 对象
Do While reader.Read() '读取一条数据
textbox1.Text += reader("一些数据") VbCrLf
Loop
reader.Close() '关闭OleDbDataReader
conn.Close() '关闭连接
CLR即公共语言运行时（Common Language Runtime，简称CRL），就是微软为.net产品构建的运行环境，与java的JVM类似，通俗的讲就是.net虚拟机。CLR上实际运行的并不是我们通常所用的编程语言(例如C#、VB等)，而是一种字节码形态的“中间语言”。这意味着只要能将代码编译成这种特定的“中间语言”(MSIL),任何语言的产品都能运行在CLR上。CLR通常被运行在Windows系统上，但是也有一些非Windows的版本。这意味着.Net也很容易实现“跨平台”。CLR是.net系列产品运行的基础。
VB.NET是微软Visual Studio.NET中的一门语言，其中还有C#和J#等语言。它是通过.NET CLR (Common Language Runtime)来解析的，语法是基于传统的VB的。
.Net Framework是一个支持多种开发语言的开发平台，然而这种多语言支持的特性是以CLR为基础的。
在C#中，你可以使用 "\r\n" 来代表controlchars.crlf。或者可以使用System.Environment.NewLine
此程序本身没有任何问题，估计是textbox的属性问题。你把textbox的Mutiline行为改为True，默认的是False。Multiline行为是用来控制textbox中的多行显示，改过来后应该就能正常显示了。 textbox1的输出语句加上TextBox1.text是为了控制循环显示数组元素，如果去掉了只能显示数组中最后一个元素，前面的会被覆盖掉。后面的controchars.crlf必须加上，那是VB.net的控制字符，表示一个回车换行符，如果去掉了肯定不会分行显示了。
记得采纳啊
'产生10个正整数
Dim intArr(10) As Integer
For i As Integer = 1 To 10
intArr(i - 1) = Int(Rnd() * 99) + 1
Next
'取最小值
Dim intMin As Integer = intArr(0)
For j As Integer = 1 To UBound(intArr) - 1
If intMin intArr(j) Then intMin = intArr(j)
Next
'取最大值
Dim intMax As Integer = intArr(0)
For j As Integer = 1 To UBound(intArr) - 1
If intMax intArr(j) Then intMax = intArr(j)
Next
Dim strTemp As String = ""
For tempi As Integer = 0 To UBound(intArr) - 1
strTemp = strTemp intArr(tempi) ","
Next
MessageBox.Show(strTemp ControlChars.CrLf "min: " intMin.ToString ControlChars.CrLf "max: " intMax.ToString)
