This is the code I can't identify where the error is located I reve unhandle exception

Imports System.Data.SqlClient
Public Class Form1
    Dim cn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\hamid\AppData\Local\Temporary Projects\InsertUpdateDelete\Database1.mdf;Integrated Security=True;User Instance=True")
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cmd.Connection = cn
        loadlistbox()
    End Sub
 Private Sub loadlistbox()
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        cn.Open()
        cmd.CommandText = "select name,id from info"
        dr = cmd.ExecuteReader()
        If dr.HasRows Then
            While (dr.Read())
                ListBox1.Items.Add(dr("name"))