[Resolvido] Referência de objeto não definida para uma instância

//Olha eu ai mais uma vez quebrando a cabeça, pessoal alguem pode me dizer onde esta o erro deste código o visual studio me da esse erro:

//{"Referência de objeto não definida para uma instância de um objeto."}

Public Function AtualizarDtUltimoAcesso(ByVal horaAtual As DateTime, ByVal strlogin As String) As Boolean

cnn = New SqlConnection(DiarioConnectionString)

 strSql = "update usuario set ultimo_acesso = @ultimo_acesso where login = '" & strlogin & "'"

 Try
 cnn.Open()
 Dim sqlCommand As SqlCommand = New SqlCommand(strSql, cnn)

 With cmd.Parameters

 .Add("@ultimo_acesso", SqlDbType.DateTime).Value = horaAtual

 End With
 cmd.CommandType = CommandType.Text
 cmd.ExecuteNonQuery()
 Return 1
 Catch ex As Exception

 End Try

 End Function