Private Sub Class_Initialize()
  Conn.Open "ASPBook", "sa", "yourpassword"
End Sub