这段代码哪里错了，请教高手！

Private Sub Command1_Click() On Error Resume Next Set rs = server.CreateObject("adodb.recordset") Set conn = server.CreateObject("adodb.connection") conn.ConnectionString = "driver={microsoft access driver (*.mdb)};Server=127.0.0.1;Database=data.mdb" conn.Open Set rs.ActiveConnection = conn rs.Source = "select * from 报表" rs.Open End Sub