不能用"New"宣言数组

不能用"New"声明数组
Public Class DBoperation
    Dim conn As New OleDb.OleDbConnection
    Dim cmd As New OleDb.OleDbCommand
    Dim da As New OleDb.OleDbDataAdapter
    Dim dt As New DataTable
    Public Sub New(ByVal connstr As String)
        conn.ConnectionString = connstr
        cmd.Connection = conn
        da.SelectCommand = cmd
    End Sub
    Public Function executesql(ByVal sql As String) As DataTable
        If InStr(LCase(sql), "select") Then
            cmd.CommandText = sql
            conn.Open()
            dt = New DataTable
            da.Fill(dt)
            conn.Close()
            Return dt
        Else
            If InStr(LCase(sql), "delete") Or InStr(LCase(sql), "update") Or InStr(LCase(sql), "insert") Then
                cmd.CommandText = sql
                conn.Open()
                If InStr(LCase(sql), "delete") Then
                    MsgBox("删除记录 " & cmd.ExecuteNonQuery())
                End If
                If InStr(LCase(sql), "update") Then
                    MsgBox("更新记录 " & cmd.ExecuteNonQuery())
                End If
                If InStr(LCase(sql), "insert") Then
                    MsgBox("新增记录 " & cmd.ExecuteNonQuery())
                End If
                conn.Close()
            End If
            Return Nothing
        End If
    End Function
End Class

这是我定义的一个类

然后
Public Class LendInfo
    Dim dboperation1(connstr) As New DBoperation()