Блоки Using гарантируют, что ваши объекты базы данных будут закрыты и удалены даже в случае ошибки. ExecuteScalar возвращает первый столбец первой строки набора результатов. Просто назначьте это переменной.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ForenameCount As Integer
Using cn As New OleDbConnection("Your connection string")
Using cmd As New OleDbCommand("Select COUNT(Forename) FROM PrisonerInformation", cn)
cn.Open()
ForenameCount = CInt(cmd.ExecuteScalar)
End Using
End Using
MessageBox.Show(ForenameCount.ToString)
End Sub