Cita:
Iniciado por MauSan 
Hola
Cambia esta linea:
Dim cn As New OleDb.OleDbConnection("provider=microsoft.ace.oled b.12.0;data source = C:\Users\Zoko\SeeWeedDataBase4.accdb")
por esta y proba:
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=C:\Users\Zoko\SeeWeedDataBase4.accdb;Persis t Security Info=False;")
Ya hize lo que me indicaste y sigue apareciendo el mismo error.