简单的错误

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strsql As String
        Dim myconn As oledbconection
        Dim mycmd As oledbcommand
        Dim strdb = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db.mdb")
        myconn = New oledbconnection(strdb)
    End Sub已经倒入的名称空间
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>
还是说三个OLEdb错误，未定义类型