不显示数据啊!!!!!!!!!!!请各位大侠帮帮忙!!!!!!!!!!!!
先谢谢了!!!!!!!!
Dim conStr As String
Dim conn As OleDbConnection
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim comm As OleDbCommand
Dim comStr As String
conStr = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("book\book.mdb")
conn = New OleDbConnection(conStr)
Try
comStr = "select * from guestbook"
comm = New OleDbCommand(comStr, conn)
da.SelectCommand = comm
conn.Open()
da.Fill(ds, "myinfo")
Catch ex As Exception
If Not ds.Tables Is Nothing Then
DataGrid1.DataSource = ds
DataGrid1.DataBind()
conn.Close()
End If
End Try

谢谢大哥拉!!!!!!!!!!!
小弟初接触ASP
不过又出 了个问题!!!!!!!!!!!!!!!
从类型“DBNull”到类型“Boolean”的强制转换无效
异常详细信息: System.InvalidCastException: 从类型“DBNull”到类型“Boolean”的强制转换无效。

源错误:

行 71： If Not ds.Tables Is Nothing Then
行 72： DataGrid1.DataSource = ds
行 73： DataGrid1.DataBind()
行 74： conn.Close()
行 75： End If


代码:
Dim conStr As String
Dim conn As OleDbConnection
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim comm As OleDbCommand
Dim comStr As String
conStr = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("book\book.mdb")
conn = New OleDbConnection(conStr)
Try
comStr = "select * from guestbook"
comm = New OleDbCommand(comStr, conn)
da.SelectCommand = comm
conn.Open()
da.Fill(ds, "myinfo")
DataGrid1.DataSource = da.TableMappings("myinfo")
Catch ex As Exception
If Not ds.Tables Is Nothing Then
DataGrid1.DataSource = ds
DataGrid1.DataBind()
conn.Close()
End If

End Try

谢谢各位老大拉!!!!!!!!1