VB.NET 与Access数据库连接的确切语句
新手上路,请各位大虾帮帮忙,VB.NET 与Access数据库连接的确切语句是什么??

[解决办法]
这是个简单的例子,网上有很多啊.

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
conn = New OleDbConnection( "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\data.mdb ")
conn.Open()
Dim strSQL As String = "SELECT * FROM 表1 "
da = New OleDbDataAdapter(strSQL, conn)
ds = New DataSet
Dim count As Int32 = da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class
[解决办法]
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objda As New OleDb.OleDbDataAdapter
Dim objds As New DataSet

objConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + IO.Directory.GetCurrentDirectory + "\数据库.mdb "
'objComm.CommandText = "select 自动号 as 工作,姓名 as 老婆 from 我的表 "
objComm.CommandText = "select * from 我的表 "

objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds)
objConn.Close()

objds.Tables(0).DefaultView.AllowNew = False
DataGrid1.DataSource = objds.Tables(0)
Dim myTableStyle = New DataGridTableStyle

DataGrid1.TableStyles.Clear()
'定义datagrid1需要的格式表

myTableStyle.MappingName = objds.Tables(0).ToString
'设置数据源

Dim myColumnStyle1 = New DataGridTextBoxColumn
myColumnStyle1.MappingName = "自动号 "
myColumnStyle1.HeaderText = "编号 "

Dim myColumnStyle2 = New DataGridTextBoxColumn
myColumnStyle2.MappingName = "姓名 "
myColumnStyle2.HeaderText = "老婆 "

'将ID　翻译成　编号
myTableStyle.GridColumnStyles.Add(myColumnStyle1)
myTableStyle.GridColumnStyles.Add(myColumnStyle2)

DataGrid1.TableStyles.Add(myTableStyle)

Dim b As New System.Text.StringBuilder
Dim mResult As String = b.ToString
For Each c As DataColumn In objds.Tables(0).PrimaryKey
b.Append(c.ColumnName)

Exit For
b.Append( " ")


'mResult = mResult.Substring(0, mResult.Length - 1)

Next
MsgBox(mResult)
[解决办法]
我用的是VWD，数据库放在e:\website1\app_data\baoxiu.mdb
代码是
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim mXy As String = DropDownList1.Text
Dim mQy As String = DropDownList2.Text
Dim mDong As String = TextBox5.Text
Dim mFh As String = TextBox6.Text

TextBox2.Text = TimeOfDay()
Dim cn As New System.Data.OleDb.OleDbConnection
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " + "e:\website1\App_Data\baoxiu.mdb "




Dim cmd As New System.Data.OleDb.OleDbCommand

cmd.CommandText = "SELECT * FROM ACCOUNT WHERE 校园= " + mXy + " AND 栋= " + mQy + mDong + " AND 房号= " + mFh
cmd.Connection = cn
cn.Open()
cmd.ExecuteReader()
cn.Close()
End Sub

我想把 "e:\website1\App_Data\baoxiu.mdb "这句用application.StartupPath+“\App_Data\baoxiu.mdb”来替换，但是提示错误“StartupPath”不是“System.Web.HttpApplicationState”的成员。
很困惑