Hola Desoft:
Eso que te pasa en la tablet es raro, por que ese directorio es correcto para escribir, prueba a copiarlo al directorio de la aplicación
File.DirDefaultExternal , es un directorio de la aplicación, y otra aplicación no podrá acceder a el.
Por otro lado, para evitar que se te cierre la aplicación, emplea el control de errores (
Try), algo asi:
If Not(File.Exists(File.DirInternal, "telefonos.db")) Then
Try
File.Copy(File.DirAssets, "telefonos.db", File.DirInternal, "telefonos.db")
Catch
Msgbox ("No se pudo copiar la BD","")
End Try
End If
Saludos