Dim DB As Database
Dim RS As Recordset Dim sYear As String Set DB = OpenDatabase("Biblio.mdb") Set RS = DB.OpenRecordset("Authors") sYear = "" & RS![Year Born] By default Access string fields contain NULL values unless a string value (including a blank string like "") has been assigned. When you read these fields using recordsets into VB string variables, you get a runtime type-mismatch error. The best way to deal with this problem is to use the built-in & operator to concatenate a blank string to each field as you read it. |